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ICHCIOH 

PROGRñHflS 


LA ABEJA 


10 

20 



M. JESUS CABELLO MARTINEZ 


«1985# 


25 MODE o:border 0:INK 0,0:INK 1.2.8:PAPER 0:PEN l:CLS:SPEED INK 5,5:LOCATE 3.12 
:print"l a a b e j a m :for t=i to 2000 :next 

30 MODE l:B0RDER 0;SPEED INK 50.50:SYMBOL AFTER O:RESTORE 9000:POR Z=0 TO 11:REA 
D C:INK Z.c:NEXT:INK 12,2,3:INK 13,6.26:PAPER O:PEN 


i:cls:for z=i to 22:read e$:locate i,z:print e$:sound 1 .ioo,5:next:sound 1 . 500.1 

o:gosub 9200 

40 IF INKEY$="" THEN 40 

50 CLS: IN$=CHR$(174) : J$=STRING$ <39,32.) : LOCATE 2,5 : PRINT " DEF INIC ION DE LAS TECLAS 
DE JUEGO:LOCATE 1.7:PRINT IN$;"PARA SUBIR LA ABEJ 
A?" : GOSUB 9100:S$=L$:LOCATE 1,7:PRINT J$: LOCATE i,7:F'RINT "PARA SUBIR " i S$ 

60 LOCATE 1.9:PRINT IN$;"PARA BAJAR LA ABEJA7":GOSUB 9100:B$=L$:LOCATE i,9:PRINT 
J^:LOCATE 1.9:PRINT "PARA BAJAR "5B$ 

70 LOCATE l.ll:PRINT IN$;"PARA LLEVAR A LA DERECHA A LA ABE J A?": GOSUB 9100:D$=i_$ 
:LOCATE l.ll:PRINT J*:LOCATE 1.11:PRINT "PARA LA DER 
ECHA "!D$ 

80 LOCATE 1. 135 PRINT IN$;"PARA LLEVAR A LA IZQUIERDA A LA ABEJA?":GOSUB 9100:1$ = 


L$:LOCATE 1,13:PRINT J$:LOCATE 1,13:PRINT "PARA LA I 
ZQUIERDA "51$ 

85 LOCATE 1,15:PRINT IN$5"PARA ABANDONAR EL JUEGO?”:GOSUB 9100:AB$=L$:LOCATE 1,1 
5:print j$:lócate 1,15:PRINT "PARA ABANDONAR el jueg 
O " ; AE$ 

87 LOCATE 1,18:PRINT IN$;"NIVEL DE JUEGO? (1 DIFICIL - 5 FACIL)":GOSUB 9100:VNJ= 
VAL <L$) : IF VNJ< 1 OR VN J >5 THEN 87 ELSE LOCATE I.IS'.P 
RINT J$:LOCATE 1, 18;PRINT"NIVEL"5 VNJ 

90 LOCATE 1,23:PRINT"SI ESTAS DE ACUERDO CON ESTAS TECLAS PULSA S SINO PULSA 
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CUALQUIER OTRA TECLA" 

lOO LS=INKEY$;IF L$="" THEN 100 ELSE IF L$< >"S" AND LS<>"s” THEN 50 
105 N.J = VNJ*10: PT=0; NV=1 : VD=5: KD$=STRINGí$ (4,46) 

110 MODE 0:SPEED INK 50,50:GOSUB 3200:FT=-1 

120 LL$=STRING$(20 ; LD$):PEN 2:L0CATE 1.2:PRINT LL$:LOCATE 1.24:PRINT LLSUFOR 2=3 
TO 23;LOCATE Í.ZIPRINT LD*:LOCATE 20.Z:PRINT LD*:NE 
XT 

130 GOSUB SOOO;GOSUB 3300 

140 RANDOMIZE TIME:FOR Z=i TO NV*10 STEP NV:0=INT<Z/10+1):IF 0>6 THEN 0=6 
150 X0=INT(RND*13+2>:YO=INT(RND*21+3>:IF TEST<X0*32-16.403-(Y0*16))<>0 THEN 150 
160 LOCATE XO.YOíON O GOSUB 9300.9310.9320.9330.9340.9350 
170 NEXT:PEN 2:FOR Z=1 TO INT(NV/5+1)¡GOSUB 3100:NEXT:YA=4 

130 FOR XI = 2 TO 19: IF TEST ( XI*32- 16.408-( YA*16 ) ) =0 AND TEST (XI*32-ió. 403-< (YA+1) 
*1Ó)>=0 AND TEST(XI*32-1Ó ? 411-<YA*1Ó>)=0 AND TEST(XI 
*32-16.411-((YA+1)*16))=0 THEN XA=XI:XI=20 
190 NEXT:IF X1=20 THEN YA=YA+1:G0T0 180 

200 SPEED INK 2.2:SX=1:SY=0:GOSUB 9550:FOR T=1000 TO 10 STEP -5:S0UND i.T.l:SOUN 

D 2.T+10.1:NEXT 

205 IF SQ(1)< >4 THEN 205 

210 L$=INKEY$: IF LS=AB$ THEN 10000 

215 FOR T= 1 TO NJ'.NEXT 

220 IF LS=S$ THEN SY = -1:SX=0 

230 IF LS=B$ THEN SY=1:SX=0 

240 IF L$=D$ THEN SX=1:SY=0 

250 IF L$=I$ THEN SX=-1:SY=0 

255 TO=TEST(<XA+SX)*32-1ó.412-((YA+SY)*16)):T1=TEST((XA+SX)*32-16.412-((YA+SY-1) 
*1Ó)):IF TO=2 OR T1=2 THEN 9600 

260 TO=TEST((XA+SX)*32-16.408-<(YA+SY)*16)):T1=TEST((XA+SX)*32-16.403-í(YA+SY-i) 
*16) ) : IF TOOO AND T0< >4 OR TlOO AND T104.THEN GOS 
UB 7000:IF TO=T1 THEN GOSUB 7000 

270 SOUND 1.500.3: GOSUB 9500 : XA=XA + SX ; YA=YA + SY i SQUND 2 . le/, 3 .’GOSUB 9550: IF FT< 10 
THEN 210 



230 FOR T=1000 TO 10 STEP -10:S0UND 1.T.3.i5:SOUND 2.T+i00.2.12:SOUND 3.T+500.1. 
10;NEXT 

290 IF SQ(1)< >4 THEN 290 

300 NV=NV+l:FOR Z=1 TO 100:L$=INKEY$:NEXT:GOTO 110 
7000 IF T0=5 OR Tl=5 THEN PT=FT+1O:GOSUB 3000 

7010 IF T0=3 OR Tl=3 THEN PT=PT+20:GOSUB 8000 

7020 IF T0=6 OR Tl=6 THEN PT=PT+40:GOSUB 8000 

7030 IF T0=9 OR Tl=9 THEN PT=PT+ÓO:GOSUB 8000 

7040 IF T0=10 OR T1=1O THEN PT=PT+50:GOSUB 8000 
7050 IF T0= 1 1 OR T1 = 1 1 THEN PT = PT + 30:GOSUB 8000 
7060 RETURN 

3000 PEN lo:LOCATE 4. 1 SPRINT USING"PUNTOS: nnnmtn PT:SOUND 1.50.3:FT=FT + 1íRETUR 
N 

3100 PEN 2:RANDOMIZE TIME:KD=RND:XI=INT(RND*16>+3:XF=INT(RND*1ó>+3:YI=INT(RND*i9 
+4);YF=INT(RND*19+4) 


3105 IF ABS(XF-XI)>12 OR ABS(YF-YI)>14 THEN 3100 ELSE IF KD>0.5 THEN 8140 
3110 IF ABS(XF-XI)<2 OR ABS(YF-YI)<2 OR TEST(X1*32-16,408-(Y 1*16) )<>0 THEN 3100 
3120 FOR K1= XI TO XF STEP SGN(XF-XI):IF TEST(K1*32-ió.408-(Y1*1ó) >=0 THEN LOCATE 
K1.YI"PPINT LDÍ ELSE Ki=99*SGN(XF-XI) 

3130 NEXT:RETURN 

3140 FOR K1=YI TO YF STEP SGN(YF-YI):IF TEST(X1*32-16.408-(K1*1ó))=0 THEN LOCATE 
XI.KllPRINT LD$ ELSE K. 1 =99*SGN ( YF - YI ) 

3150 NEXT:RETURN 

3200 PEN lO: LOCATE 6 . 1 : F'R I NT " FRUTAS : " : FOR 0=1 TO ó : X0 = 3 : Yü = G*3 + 3 : LOCATE XO.YuiuN 
O GOSUB 9300.9310.9320.9330.9340.9350:PEN 13:LOCATE 

5. yo: PRINT KDS5SUSING otos. M ;c*io: NEXT: PEN 12 : LOCATE 4.24: PRINT"PARA CONTINU 


^5 
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AR":LOCATE 4,25:PRINT"PULSA UNA TECLA" 

8210 IF IMKEY$=”“ THEN 8210 ELSE CLS:RETURN 

8300 PEN 10;LOCATE 6.25:PRINT USING"VIDAS:##"I VD:RETURN 

9000 DATA 0,24.6.3.15,19.12.21.9.16.8.7 

9010 DATA " L A A E E 3 A”,,," Es un luego emocionante en ei que lo", 

.mas importante es comerse muchos frutes....” Sin e 

rübargo. las paredes te impedirán", .hacerlo y tienes que procur ar no chocar, ¡con 
e11 as. 

9020 DATA ..." Las tec i as de movimiento de- i a. abéis." . . aodras elegirla* tu mismo 
. . , . " PULSA CUALQUIER TECLA PARA COMENZAR" 

9100 L*=INKEY*:IF «_*="" THEM 9100 ELSE RETURN 

9200 SYMBOL 176.8,28.46.111.95.95.46,28*. SYMBOL 177,3,110,223, 191,191,94,56,0:SYM 
EOL. 178,6,6, 14,30,60,56,28, 12: SYMBOL 179,0,0,60,90,2 
19.219,90=60:SYMBOL 180,102,24,0,0,0,0,0,0 

9210 SYMBOL 131,24,36,66,129,129,66,36,24:SYMBOL 182,O,24,52,i26,90,44,24,0:SYMB 
OL 133,0,108,190,191,191,95,126,56:SYMBOL 184,23,62, 

34.62.34.23.3,O;SYMBOL 135.0,0,0,65,34,28,42,54:SYMBOL 136,65,65,93,65,28,0,O,0: 
SYMBOL 187,127,127,127,0,247,247,247,0 

9220 TU*=CHR* (22) +CHR*< 1 ) : TD*=CHR*(22) +CHR*<0) : A1*=CHR* (134) : A2*=CHR* (185); A3*=C 
HR*<136):LD*=CHR*(187) 

9230 DIM O*(15) :O* <1)= CHR*(176) :0$(2)= CHR*(177) :0$(3)= CHR* (178) :O*(4)= CHR*(179) : 
O* ( 14) = CHR* (ISO) : O* (5) = CHE* ( 181 ) *. O* < 15)=CHR* (182) : O* 

(6)=CHR*(183) 

9240 FOR Z=1 TO 1 O : NM* ( Z ) = " AMSTRAD " *. PT ( Z ) = 100 : NEXT : RETURN 

9300 PEM 5:PRINT O*(0):RETURN 

9310 PEN 3: PRINT O*(O)¡RETURN 

9320 PEN ll:PRINT O*(6)¡RETURN 

9330 PEN ó:PRINT O* (3):RETURN 

9340 PEN 8 ; PR INT 0$ ( 5 ); TU*: LOCATE XO,YO:PEN 10:PRINT C* ( 15 ) i TD*: RETURN 
9350 PEN 9:PRINT O*(4>;TU*:LOCATE XO,YO:FEN 7:PRINT G*(14)!TD*:RETURN 
9500 LOCATE XA,YA:PRINT" ":LOCATE XA,YA-1:PRINT" RETURN 

9550 PEN 4; LOCATE XA, YA: PRINT Al*:PEN 1 : LOCATE XA, YA-1 : PRINT A2*:F’EN 13: LOCATE X 
A,YA:PRINT TU*;A3*;TD*:RETURN 

9600 INK 2,2,3:PEN 2:LOCATE XA,YA:PRINT Al*:LOCATE XA,YA-1:PRINT A2*:LOCATE XA,Y 
a;PRINT TU*;A3 *;TD*:FOR T=1 TO 1oo:SOUND 1,i000,i:so 
UND 2,10,1¡SOUND 3,3000,1:NEXT 
9610 IF SQ(1)< >4 THEN 9610 

9620 INK 2,ó:VD=VD-1:GOSUB 3300:F0R T=1 TO 1000:L*=INKEY*:NEXT:IF VD>0 THEN 110 
ELSE 10000 

10000 IF PT< PT ( 10) THEN 10100 ELSE FOR Z=1 TO 10: L*= INKEY*: NEXT *. NM*= " " : PEN 1 : CLS 

¡LOCATE 4,4¡PRINT IN*;”TU NOMBRE?“:FOR Z=I TO 10 

10010 L*=INKEY*:IF L*=CHR*(13) THEN Z=10:G0T0 10030 

10020 IF !_*="" THEN 10010 ELSE NM*=NM*+L*: LOCATE 5 + Z,I0:F'RINT L* 

10030 NEXT 

10040 pt ( 10) =pt: nm*( 10) =r.m* 

10050 FOR Z=i TO 10;F0R ZZ=1 TO 9:IF PT(ZZ>>=PT(ZZ+1> THEN 10070 

10060 K = PT (ZZ) : PT (ZZ) =PT (ZZ-r 1 ) : PT ( ZZ+i ) =K : K*=NM* (ZZ) : NM* (ZZ) =NM* (ZZ+1 ) : NM* (ZZ+l ) 
= K* 

10070 NEXT:NEXT 

10100 CLS:LOCATE 4, 1:PRINT"PUNTUACIONES : ":FOR Z=1 TO 10:PEN Z+l:LOCATE i,Z*2+l:P 
RINT NM*(Z) :LOCATE 14,Z*2+1:PRINT US ING"######";PT(Z 
):NEXT 

10110 PEN 12:LOCATE 3,23:PRINT"0 OTRA PARTIDA":LOCATE 3,24:PRINT"P OTRO PROGRAMA 

II 

10120 L*=INKEY*: IF L*="" THEN 10120 ELSE L*=UPPER*(L*) : IF L*="G" THEN MODE i iPEN 
l:GOTO 50 ELSE IF L*<>"P" THEN 10120 

10130 MODE i:BOEDER 1:SYMBOL AFTER O: INK O,i: INK 1,24:PAPER O:PEN i:CLSi PEINT”PE 
EPARADO PARA EL SIGUIENTE PROGRAMARUN"" 
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CRASH 


11:READ CIINK Z.CINEXT 

2. z*2 

1.z:PR 


10’ <<< CRASH >>> 

20 ’ 

30 SYMBOL AFTER o:MODE O:BORDER O:RESTORE 9100:FOR Z=0 TO 
:INK 12.ó.2ó:SPEED INK 3.3:PAPER O:PEN 1:CLS 

40 FOR Z=1 TO 12:PEN Z:LOCATE ó.12:PRINT"C RAS H":SOUND 1.Z*10O.20:SOUND 

00.20 

50 IF SQ(1)< >4 THEN 50 

60 NEXT:GOSUB 9500:PEN l:MODE i:RESTORE 9000:F0R Z=1 TO 24:READ tS :LOCATE 
INT fS:NEXT:PT=0:VD=5 
70 IF INKEYS="" THEN 70 

30 MODE l:GOSUB 3500: LOCATE 39.23'.PRINT eS:LOCATE 39.24:PRINT eS 
90 GOSUB 3900:GOSUB 3300:xx=2:yy=5:tp=22:AX=1:GOSUB 3510:’ estancia 1 
100 X5=2:ys=3:SSS="D":GOSUB 5000:GOSUB 3700 
110 OB=l:GOSUB 1000 

120 CLS:GOSUB 3500:LOCATE 39.10:PRINT ES:LOCATE 39 
8300: xx=io: yy=19:tp=i:ax=-i:gosub 85io: xx=ío:yy= 19 
p=16:AX=1:GOSUB 3510:XX=3S:YY=12:TP=23:AX=-1:GOSUB 
5000:GOSUB 3700;0B=4;GOSUB 1000 
130 CLS:GOSUB 8500:LOCATE 39.10:PRINT ES:LOCATE 39. 

3800:xx=2 :yy=12:tp=20:ax= i :gosub ssio:xx=33:tp=20:yy 

=12:ax=- 1:GOSUB 3510:xs=2 :ys=io:SSS="D":GOSUB 5000:GOSUB 3700:0B=7:GOSUB 1 
140 CLS:GOSUB 8500:LOCATE 39.23:PRINT ES:LOCATE 39.24:PRINT ES:GOSUB 3900: 
3300 :xx=2:YY=12:TP=20:AX=1:GOSUB 85iO:FGR Y=20 TO 24 


ii:print es:gosub 3900 : 

T 

8510: xs = 2: YS=23‘. SSS= "D" 
,ll:PRINT es:GOSUB 8900: 


GOSUB 
:GOSUB 

GOSUB 

000 

GOSUB 


:LOCATE 5.Y:PRINT STRINGS<29.172):NEXT:xx=34:YY=20:TP=39:AX=1:GOSUB 3510 
150 XS=2:YS=10;SSS="D":GOSUB 5000:GOSUB 3700:0B=10:GOSUB 1000 

160 CLS:GOS)JB 3500:L0CATE 39.23 : PR I NT ES : LOCATE 39.24:PRINT ESIGOSUB 3900 : GOSUB 
3300:FOR XX=4 TO 37:IF RNDC0.5 THEN LOCATE XX.24:PRI 
NT LDS 

170 NEXT:XS=2:YS=23:SSS="D":GOSUB 5000:GOSUB 3700:OB=13:GOSUB 1000 

130 CLS:GOSUB 8500:L0CATE 39.22:PRINT "F":LGCATE 39.23:PRINT " I":LOCATE 39.24:PR 
ÍNT"N":GOSUB 3900:GOSUB 3300:XX = 20:YY =10:TP = 5:AX = -i: 

GOSUB 3510:xx=20:YY=10:TP=35;AX=1:GOSUB 3510 :xs=2:YS=23:SSS=”D":GOSUB 5000:G0SUB 
3700:0B=1 ó:fi=i;GOSUB 1000 
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999 GOTO 999 

ÍOOO L*=INKEY*:IF L*<>" " THEN L*=UPPER*<L*>:GOSUB 7000: ELSE 1200 

1010 IF L*="Q" AND T2=l AND T1=0 AND ES = 0 THEN GOSUB 5100 : XS=XS-1 : SS*=" I " : GOSUB 
5000:GOTO 1100 

1020 IF L*="W" AND T4=l AND T3=0 AND ES=0 THEN GOSUB 5100:XS=XS+1:SS*=”D":GOSUB 
5000¡GOTO 1100 

1030 IF L*="A" AND T2=0 AND T1=0 AND ES=0 THEN GOSUB 5100:XS=XS-1:YS=YS+1:SS*="I 
"¡GOSUB 5000 ELSE IF L*="A" AND Tl=l AND T5=0 AND ES 
=0 THEN GOSUB 5100:XS=XS-1:YS=YS-1:SS*=”I":GOSUB 5000 
1035 IF L*="A" THEN 1100 

1040 IF L*="S" AND T4 = 0 AND T3 = 0 AND ES = 0 THEN GOSUB 5100: XS=XS+1 : YS=YS+1:SS*="D 
"¡GOSUB 5000 ELSE IF L$="S" AND T3=l AND Tó = 0 AND ES 
=0 THEN GOSUB 5100¡XS=XS+1¡YS=YS-1¡SS*="D"¡GOSUB 5000 
1045 IF L*="S" THEN 1100 

1050 IF L*="0" AND ES=0 THEN GOSUB 7200¡PRINT CHR*(22>;CHR*<1>:PEN 2¡F0R Y=YS-1 
TO TES STEP -1 ¡LOCATE XS,Y:PRINT ES*:SOUND 1.1000,1: 

SOUND 2, 1500, 1 ¡ NEXT¡ PRINT CHR* ( 22 l_L£HR3ií O) ¡ PEN 1¡ES=1 
1055 IF QES=1 THEN QES=0¡ES=0 

10Ó0 IF L*="P" AND YS >3 AND ES=1 THEN E*=ES*:GOSUB 5100¡E*=CHR*(32) ¡ YS=YS-1¡GOSU 
B 5000 ELSE IF L*="P" THEN GOSUB 5100:GOSUB 7300:GOS 
UB 5000:ES=0 

1100 K=0:FOR Z=1 TO. 7¡IF XS=XP(Z> AND (YS=YP(Z) OR YS+1=YP(Z)) THEN K=Z:Z=9 

mo next:if koo then lócate xp (K), yp (K) :print e*:gosub 5000 :kp (K) =o: yp (K> =o:pt 

=PT+100:GOSUB 8300 

1120 IF KOO AND ES=1 THEN GOSUB 5100: GOSUB 7300: GOSUB 5000: ES=0 
1150 IF XS=39 THEN 3000 

1200 PEN 3¡IF X0 = 0 THEN X0=INT<RND*37+2) :YO = 4 : 0=INT(RND<TIME)*3 + 0B) : IF XO = XP(1) 
OR X0=XP(2) OR X0=XP(3) OR X0=XP(4> OR X0=XP(5> OR X 

0=XP(6) OR X0=XP(7) THEN X0=0:G0T0 1200 ELSE LOCATE XO,YO:PRINT 0$(O) 

1210 LOCATE XO,YO:PRINT E*:Y0 = Y0 + 2:T=TEST(X0*16-3,400-<Y0*16-12) ) : IF T=1 AND X0< 
>XS OR YO >24 THEN X0=0:G0T0 1000 

1220 LOCATE X0,Y0:PRINT 0*<0):IF X0=XS AND <YO=YS OR Y0=YS+1) THEN 2000 
1230 PEN l:GOTO 1000 

2000 FOR Z = 500 TO 1000 STEP 10: SOUND 1,Z,2:S0UND 2 , Z+100,2 : NEXT 

2005 IF SQ(1)< >4 THEN 2005 

2010 SOUND 1,1000,5 

2015 0D=VD-1:IF VD<1 THEN 2100 

2020 LOCATE 26,l:PRINT STRING*(13,32)¡GOSUB 3900:G0SUB 5000:X0=0:GOTO 1000 
2100 LOCATE 7,12:PRINT"SE TE TERMINARON LAS OIDAS":FOR Z=1 TO 3000:NEXT 

2110 cls:pen ülocate 3,5:print h has obtenido"ípt;"puntos":lócate 3,io:print m para 

OTRA PARTIDA PULSA LA TECLA P”:LOCATE 3,12:PRINT"PA 
RA OTRO PROGRAMA PULSA LA TECLA F" 

2120 L*=INKEY*:IF L*="" THEN 2120 ELSE L*=UPPER*(L*):IF L*="P" THEN RUN ELSE IF 
L*="F" THEN 10000 
2130 GOTO 2110 

3000 X0=0:INK l,2ó,ó:F0R Z=300 TO 10 STEP -10:S0UND 1,Z,2:S0UND 2,Z+1O,2:NEXT:IN 
K 1,26:PEN 3 

3010 IF SQ(1)< >4 THEN 3010 
3015 IF FI< >0 THEN 3500 

3020 LOCATE 1,25:PRINT"PASAMOS A LA SIGUIENTE ESTANCIA (S/N)" 

3030 L$=INKEY*: IF L$="" THEN 3030 ELSE L$=UPPERS<L$) : IF L*="N" THEN LOCATE 1,25; 
PEN l:PRINT STRING$(39,172)¡GOTO 1000 
3040 IF L$="S" THEN RETURN 
3050 GOTO 3030 

3500 LOCATE 12,25:PRINT"FIN DE LA AVENTURA":FOR T=1 TO 3000:NEXT:GOTO 2110 
5000 LOCATE xs,ys:IF 5S$="D" THEN PRINT SD1$ ELSE PRINT Sil* 

5010 LOCATE XS,YS+i:IF SS*="D" THEN PRINT SD2* ELSE PRINT SI2* 

5020 RETURN 
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5100 PEN 2 :LOCATE X5,ys:PRINT E^:LOCATE XS,YS+i:PRINT E$:SQÜND 1.100.1: PEN 1:RET 
IJRN 

7000 TX=XS-1:TY=VS+1:GOSUB 7100:TÍ=T:TY=YS+2:GOSUB 7100:T2=T:TX=XS+1:GOSUB 7100: 
T4 = T;TY=YS+1:GOSUB 7100:T3 = T:TY=YS:GOSUB 7100:Tó=T:T 
x=xs-1:GOSUB 7100:T5 =T:return. 

7100 T=TEST(TX*16-3,400-(TY*1Ó-12>):RETURN 
7200 K=0:F0R Z=1 TO 7:IF XS=XP(Z> THEN K=Z:Z=9 
7210 NEXT:IF Z=S THEN T£S=3 ELSE TES=YP(K)+i 

7230 IF YS-YP(K)—1 THEN LOCATE XP(K),YP(K):PRINT E$:XP(K)=0:YP(K)=0:QES=1:PT=PT+ 
100 :GOSUB 8300 
7240 RETURN 

7300 FOR Y=3 TO 25:IF TEST(XS*i6-8,400-(Y*16-12))=1 THEN J=Y:Y=99 
7310 NEXT:YS=J-2:RETURN 

3500 PEN 1:LOCATE 1.2:PRINT STRING*(39.172):LOCATE 1.25:PRINT STRING$(39,172):FO 
R y=2 TO 25: LOCATE l,y:PRINT Id*:LOCATE 39.y*.PRINT 1 
d*:NEXT:RETURN 

3510 ^OR y=yy TO 24:LOCATE xx,y:PRINT 1d*:NEXT:yy=yy+1:xx=xx+AX:IF xx<>tp THEN 3 
510 ELSE RETURN 
8700 FOR Z=1 TO 7 

3710 XP=INT(RND*37+2.5):YP=INT(RND*21+3.5):IF TEST(XP*ló-8,400-((YP+1)*1Ó-12))<> 
O THEN 8710 

8715 FOR Y=1 TO Z:IF XP=XP(Y) THEN Y=99 
8717 NEXT:IF Y=100 THEN 3710 

3720 PEN 2:LOCATE XP.YP:PRINT PR*:XP<Z)=XP:YP<Z)=YP:NEXT:PEN 1:RETURN 

3300 PEN 3:SOUND 1 ,10.10.15:SGUND 2.100.10:L0CATE 10.1:PRINT USING"####";pt:PEN 

1 :RETURN 

8900 PEN 3: LOCATE 3,1:PRINT"PUNTOS:":LOCATE 20, 1:PRINT"VIDAS: ":FOR Z=1 TO VD:LOC 
ATE 2Ó+Z*2,1:PRINT SI1$:NEXT:PEN 1:RETURN 

9000 DATA " C R A S H”, , ” Es u.ri iuego eri el que hay que tener", ne 

rvios de acero para sobrevivir..." El iueqo esta di 

vi di do en 6 estañe i as”. en las que debes recoger las perlas..” Como obstáculos t 
endras todo tipo de" 

9010 DATA obietos que caeran a gran ve 1 oc i d ad. desde cualquier punto.." El inovirn 
iento en horizontal se real iza" .con las teclas Q (a 

la izquierda) y W.(a la derecha)¡ subir o baiar esca1ones.con las teclas A (a la 
izquierda) y S.(a la derecha). 

9020 DATA" Para subir a por las perlas debes".tender una escalera con la tecla 
O y. subir por ella con la tecla P..." El i uego terrn 

ira si recorres todas las" . estancias o acabas con tus cinco vidas.." QUE TE 

MOAS MUCHA SUERTE 1 ! ! " . 

9030 DATA " PULSA CUALQUIER TECLA PARA COMENZAR" 

9100 DATA O.26.24. é. 8, 13.2,20, 13. 15. 12,7 

9500 SYMBOL 130,112,176,112,32,120,204,204,204:SYMBOL 131,220,120,43.43.43,43,11 
2,240:SYMBOL 132,112,104,112,32,112,200,204,204:SYMB 

OL 133,236,120,43,43,43,43,56,60:SI1*=CHR$(130):SI2*=CHR$(131):SD1*=CHR*(132):SD 
2$=CHR*(133) 

9510 SYMBOL 150,90,205,40,16,126, 126,60,24: SYMBOL 151,149,149,36,100,126,126,60, 
24:SYMBOL 152,36,90,36,36,126,126,60,24:SYMBOL 153,1 

28, 130, 131,137,254,126,70,34:SYMBOL 154,0,0,0,53,127,127,168, 112:SYMBOL 155,0,0, 

0.0,48,123,255,72 

9520 SYMBOL 156,0,0,0,255,255,126,60,60:SYMBOL 157,63,127,248,152,24,24,24,24:SY 
MBOL 153,24.60,36,24,60,102,102,102:SYMBOL 159,1,1,5 

7.69,255.137,249,255:SYMBOL 160,255,253,135,133,135,133,255,66:SYMBOL 161,0,0,25 
5.171.213.171,213,255 

9530 SYMBOL. 162,0,0,0,0,0,3,252,112:SYMBOL 163,0,0,0,0,248,243,255,243:SYMBOL 16 
4,254,127,127,126,60,60.126,126:SYMBOL 165,16,40,168 

,254,239,40,40, 16:SYMBOL 166,31,4,14, 153,250, 138,37, 126:SYMBOL 167,60,126,126,12 

6,36,36,24,24 
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9540 SYMBOL 170.147.34.165.40.139.100.33.149:EXS=CHRS(170):DIM 05(18):FOR 2=1 TO 
18:05(2)=CHRS<149+2):NEXT 

9550 SYMBOL 171.255. 195. 129. 129.255. 195. 129. 129:SYMBOL 172.127.127.127.0.247.247 
. 247. O! SYMBOL 173.66.36.24.231 ; 24.36.. 66 . O : es$=CHR$ ( 1 
71):ldS=CHRS(172):prS=CHRS(173):eS=CHRS(32>:RETURN 

10000 BORDER 1:INK 0.1:PAPER O:PEN 1:CLS:PRINT"PREPARADO PARA EL SIGUIENTE PROGR 
AMA”:RUN"" 
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BIO-RITMOS 


2 INK 0.1:1NK 1.24:INK 2,6:INK 3.26:PAPER 0:PEN i;MODE i 
10 CLS:RESTORE 10100:FOR 1 = 1 TO 1 6:READ Xi:LOCATE 1,I:PRIN 
12 XÍ=INKEYi:IF Xi="" THEN 12 ELSE CLS 
50 RESTORE 10000:DIM M(12>,Mi(11>:POR I=i 
11:READ Xi:MÍ(I)=Xi:NEXT I 
100 SYMBOL AFTER 220 

YMBOL 220.O,224.156.208.152.144.28.0 


TO 


XÍ:NEXT I 
READ X; M ( I /=X:NEXT I i ? 


L=0 


102 


104 SYMBOL 221 
106 SYMBOL 222 
108 SYMBOL 223 


23,0 
28. O 


AN = v AL ( RI6HT$ ( Ni . 4 ) / 

“ i ai 

Aa=vAL(RIGHTi(ai,4)) 

"¡Ni:LOCATE 1.7: PRINT ” FECHA ACTUAL 


OR Xi=”n 


r HEN 110 Ei_3E Ir Xi — ' 


t-1 i c. 


O,224.156.200.136.136 
0.224.156.200.136.232. 

224.123.220.144.248.80.80.224 
110 MODE 1; INPUT " Fec ha de nacimiento ( xx-xx-xxxx ) : 

112 IF LEM(N$!O!0 THEN 110 

114 DN=VAL(LEFTi.íNi,2)):MN=VAL(MIDi(Ni,4.2)): 

116 INPUT"Fecha actual ( xx-xx-xxxx ): 

118 IF LEN(Ai)< >10 THEN 116 

120 da=UAL(LEFTi(ai,2)):Ma=VAL(MIDiíai,4.2)>: 

122 CLS:LOCATE 1.4:PRINT"FECHA DE NACIMIENTO: 

: ";Ai:LOCATE 10,10:PRINT"CONFORME (S/N)" 

124 XÍ=INKEYi:IF Xi="” THEN 124 ELSE IF XÍ=”N" 

OR Xi="s" THEN 130 ELSE 124 

130 CLS;LOCATE 18.1:PRINT M MENU“:LOCATE 2,6:PRINT"i:BIORRITMOS DEL MES' 

3:PRIMT"2:BIORRITMOS MES PROXIMu":LOCATE 2,1C:PRINT" 

3: BIORRITMOS LARGO ALCANCE ": LOCATE 2, 12: PRI NT ” 4 : C AMBIAR FECHAS LOCATE 2,14:PRIN 
T"5:FINALIZAR" 

140 XÍ=INKEYi:IF Xi="" THEN 140 ELSE IF Xi="1" THEN 500 ELSE IF Xi='2” THEN 550 
EL.SF IF Xi=" 3" THEN 200 ELSE IF Xi= ” 4" THEN 110 ELSE 
IF Xi="5" THEN 5000 ELSE 140 

200 XI=AN:X2=MN:X3=DN:Y1=AA:Y2=MA:Y3=1:GOSÜB i000:GOTO zoco 

4Q0 CLS: LOCATE 1,10: PRINT" Loe oráticos permanecerán e/i pantalla hasta 

que pulses tecla" 

415 xÍ=INKFYi:IF xi="” THEN 415 
500 GOSLIB 400 ; x l = a.n : x2=rnn : x3=dn : 

550 GOSUB 400: x l=an : x2=mr: x3=dn ; 

552 IF ma<12 THEN y1=aa:y2=ma+1 
554 GOSUB 1000:GOTO 650 

600 CLS;RESTORE 10010;FOR i=l TO 16:READ xi:LOCATE 35,i:PRINT xi;NEXT : 

601 FOR i = i TO 19: LOCATE 3, i: PRINT CHRi(i49>:NEXT i : nÍ=CHRÍ ( i 54 ) fCHR'i í 154 / +CHRÍ • 
154)+CHRÍ(154)+CHRÍ(159):LOCATE 3,20:PRINT CHRi(147) 

; ni ¡ r¡i; ni: ni; ni; MI Di ( ni, 1,3) 

602 LOCATE 2,1:PRINT "1"¡CHRi(159):LOCATE 2,10:PRIN' 

RIMT 1"¡CHRi(159>:LOCATE 8,21;PRINT ”5 10 15 

20 25":LOCATE 2,22:PRINT MÍ(Y2-1)¡Y1 

604 IF Y2=7 AND Yl\4=Yl/4 THEN LOCATE 32.20:PRINT CHRi(154) 


ELSE R! 
v i =a.a: 


TURN 

2=rna: y3=1 ; GOSUI 


1000;GG < O 650 


v3=i: IF ma=12 THEN vi=aari:y2=i 


; CHRi í 1 59 í I Lí 
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606 

I F M ( Y 2 > > = ! 

608 

X F m ( v 2 }= 3 

A 1 O 

PCTT? 

650 

GOSUF 600 ' 5 


prip X — T) T A 8 

i 2*rZ 

, i 4 t 59 ^ j /2\ 

6 Z 0 

L 0 C 4 T F x . v 

672 

I er IN T < Y 4 ) ■ 

67^ 

TF INT(Y4) : 

675 

IF INT(Y!5): 

677 

T rr T KI T ( Y 4 ) : 

679 

NEXT I 

700 

xí=INKEYS; 

705 

LOCATE 2,1 

708 

x*="SUMA P! 

T 


710 

FOR I=DIAS 

/ 28 ) 

: y 6 =S IN (2*: 

712 

PEN 2:Z=IN 

43) : 

NEXT J:NEX 

750 

X$=INKEY$: 


1CAT¡ 


;. 21 : print 


50" 


"WFN LOCATE 


20 ; PRINT CHR3SÍ154) 


ND=M<Y2' ; tc Y2=z AND Y1/4=Y1\4 THEN ND=ND+1 
t O DIAS+ND-il X= I-DIAS + 4:Y4=9.7-9*SIN<2*3.14159*i/23):v5=9.7-9*SIN 
9) :v6=9,7-9*SIN < 2*3.14159*i/33) 

4;print ”F":locate x.Y5:print "E":locate x,yó:print "i”* 

=INT(Y5) THEN LOCATE X.Y5:PRINT CHR*(220) 

=TNT<Yó> THEN LOCATE X , Yó :PRINT CHR$(221) 

= INT < Y6) THEN LOCATE X.YÓIPRINT CHR3M222) 

= IN T(Y 5) AND INT<Y4)=INT<Yó) THEN LOCATE X.Y5:PRINT CHR$<223) 

IP x*=”" THEN 700 ELSE CLSíGOSUB 601 
;PRINT"3":LOCATE 1.19:PRINT"-3" 

E BIORRITNOS":FOR 1=2 TO 19:LOCATE 38.I:PRINT MID$<X$,I-1.1):NEXT 
TO DIAS + ND-1:X=I-DIAS + 4:Y4=SIN <2*3. 14159*i/23) :v5 = SIN(2*3. 14159*i 


1000 01*3=0:1^ Y1-X1 = 1 THEN 1025 ELSE IF X1=Y1 THEN 1300 
1005 C 0R I=X1+1 TO Vi-1;DIAS=DIAS+365 
1010 IF I/4=I\4 THEN DIAS = DIAS +1 
1020 NEXT I 

1025 IF X2=12 THEN 1055 

1030 FOR I = X2 + 1 TO i 2 : DI AS=D IAS + M < I ) 

1040 IF 1=2 AND X1/ 4 = X1\4 THEN DIAS=DIAS+1 
1050 NEXT I 

1055 I r Y2=l THEN 1090 

1060 FOR 1=1 TO Y2-1:DIAS=DIAS+1 

1070 IF 1=2 AND Y1/4=Y1\4 THEN DIAS=DIAS+1 

1090 NEXT I 

1090 DIAS=DIAS+M<X2)-X3:IF X2=2 AND X1/4=X1\4 THEN DIAS=DIAS+1 
1200 DIAS=DIAS+Y3;RETURN 

1300 FOR I = X2 +1 TO Y2-1:DIAS=DIAS + M<I):IF 1=2 AND X1/4=X1\4 THEN DIAS=DIAS+1 


1305 NEXT i 
1310 GOTO 1090 

2000 GOSUB 400:CLS:PLOT 32,398.1:DRAW 32,170:DRAW 639.170:PLOT 32,340:DRAW 639.3 
40 

2002 LOCATE 2,1;PRINT"1”:LOCATE 2,4:PRINT"O":LOCATE 1.7:PRINT"-1" 

2005 rm=39: i =rna-1 : FOR i=0 TO 9:i = i+l:lF i=13 THEN i=l 

2006 Tn=Tn + 2*m < i ) : PLOT m , 163 : PLOT rn . 166 : LOC ATE m\ 16-3. 16: PRINT i : NEXT i 

2010 PEN 2:LOCATE 1.18:PRINT "ROJO: ESTADO FISICO":PEN 3:LOCATE 1,20:PRINT "BLAN 

CO: ESTADO EMOTIVO":LOCATE 1,24:PRINT “ABAJO: SUMA B 

IORRITMOS":PEN 1 :LOCATE I,22:PRINT"AMARILLO: ESTADO INTELECTUAL” 

2050 FOR I=DIAS TO DIAS + 300:X=<I-DI AS)*2 + 34:Y4 = SIN<2*3. 14159*1/23) :Y5=SIN<2*3. 14 
159*1/28) : v 6 = SIN <2*3. 14159*1/33) :Z=(Y4 + Y5 + Y6 + 3)*16 

2060 PLOT X,340+<Y4*40),2:PLOT X,340+<Y5*40),3:PLOT X,340+<Yó*40),1 
2065 PLOT X,174,3:DRAW X.174+Z 
2070 NEXT I 

2100 x*=INKEY*;IF x$=" " THEN 2100 ELSE 130 
5000 CLS:RUN" 

10000 DATA 31.28.31.30.31.30.31.31.30.31.30.31 
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10002 DATA "ENERO". "FEBRERO". "MARZO". "ABRIL" . "MAYO”. "JUNIO" . "JULIO". "AGOSTO". ”3E 
PTIEMBRE"."OCTUBRE"."NOVIEMBRE"."DICIEMBRE" 

10010 DATA "I F E" .." I E E"."N S S " ."T T T"."E A A"."L D D"."I O O”,"G”."E F E". 
" N I M" . " C S O" . " I I T" . " A C I " . " O V" . ” O" 

10100 DATA " BIORRITMOS" .." Con el presente programa podras calcu-". 

"lar los biorrltmos. asi como su. suma."." Primero ha 

s de introducir la -fecha de", "tu nacimiento (de la -forma: 09-08-19Ó4)” 

10101 DATA "y a continuación la fecha actual.”..” La opcion 1 calcula los biorri 
tmos del”."mes. la 2 los del mes próximo y la 3 los" 

."de los próximos 10 meses.”....." PULSA TECLA PARA COMENZAR" 
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CIRCUITOS ELECTRICOS 


10 ’ << CIRCUITOS ELECTRICOS >> 

20 ’ COPYRIGHT M. J. C. & F.A.P. 1985. 

30 BORDER 1 : MODE O: INK 0.1: INK 1,26,6:SPEED INK 5,5:INK 2,24:INK 3.ó:PAPER O: PEN 

i:cls:locate ó.s:print"circuitos":lócate 5,14:print 
"ELECTRICOS":FOR T=1 TO 2000:NEXT:INK 1,26:MODE l 

40 GOSUB 9100:RESTORE 9000:FOR Z=1 TO 25:READ ES:LOCATE 1,Z:PRINT E$:SOUND 1.100 
, 2:NEXT:SOUND 1.200.5:GOSUB 9110 
50 IF INKEY*="" THEN 50 

60 MODE O: INK 4.8: INK 5. 13: INK 6.2: INK 7.20: INK 8. 13: INK 9. 15: INK 10. 12: INK 11.7 

:pen i:cls 

65 DIM A(24.2).C(25).E(25) 

70 LOCATE 2.1:PRINT"CIRCUITO ELECTRICO" 

30 PEN 2:FOR Y=3 TO 13 STEP 5:FOR X=2 TO 17:LOCATE X.Y:PRINT CHS:NEXT:NEXT 

90 FOR X=2 TO 17 STEP 15:FOR Y=3 TO 18:LOCATE X.Y:PRINT CVS:NEXT:NEXT 

100 PEN 9:CC=65:F0R Y=3 TO 13 STEP 5:F0R X = 2 TO 17 STEP 5:L0CATE X.Y:PRINT CHRS( 

CC ? í CC=CC + 3 ;NEXT:NEXT 

110 D1S="N":slS="0":p1=73:sl=79 

130 GOSUB 9200:G0SUB 2000:IF K=100 THEN 150 ELSE E(S)=5:NP=S:GOSUB 3000 

190 LOCATE 1,24:INPUT"CUANTAS BOMBILLAS"5NB 

200 GOSUB 9200: IF NB<0 OR NB>12 OR NBOINT(NB) THEN 190 

210 GOSUB 9200 

220 FOR Z=1 TO NB 

230 LOCATE 1,24:INPUT"DESDE LETRA ”SPLS:PLS=UPPERS(PLS):PL=ASC(PLS):IF PL<65 OR 
PL >30 OR LEN(PLS) >1 THEN GOSUB 9200:G0T0 230 

240 LOCATE 1,25:INPUT"HASTA LETRA ";SLS:SLS=UPPERS(SLS):SL=ASC(SLS):IF 3L<65 OR 
SL >30 OR LEN(SLS) >1 OR PL>SL THEN GOSUB 9200:G0T0 23 
O 

250 GOSUB 9200:GOSUB 2000:IF K=100 THEN 230 ELSE E(S)=1:GOSUB 3100:NEXT 
260 LOCATE 1,24:INPUT"CUANTOS TIMBRES"!NT 

270 GOSUB 9200: IF NT<0 OR NT>12 OR NTOINT(NT) THEN 260 
230 GOSUB 9200 
290 FOR Z=1 TO NT 

300 LOCATE 1,24:INPUT“DESDE LETRA ";PLS:PLS=UPPER$(PLS>:PL=ASC(PLS):IF PL<65 OR 
PL >30 OR LEN(PLS) >1 THEN GOSUB 9200:G0T0 300 

310 LOCATE 1,25: INPUT"HAST A LETRA "5SLS:SLS=UPPERS(SLS) :SL = ASC(SLS) : IF SL<65 OR 
SL >30 OR LEN(SLS) >1 OR PL>SL THEN GOSUB 9200:G0T0 30 
O 

320 GOSUB 9200:GOSUB 2000:IF K=100 THEN 300 ELSE E(S)=2:G0SUB 3200:NEXT 

330 LOCATE 1,24:PRINT"CUANTOS":INPUT"INTERRUPTORES";NI 

340 GOSUB 9200: IF NI<0 OR NI >12 OR NIOINT(NI) THEN 330 

350 GOSUB 9200 

360 FOR Z=1 TO NI 

370 LOCATE 1,24: INPUT"DESDE LETRA "SPLS:PLS=UPPER$(PL$) :PL = ASC(PL$) : IF PL<65 OR 
PL >30 OR LEN(PL$) >1 THEN GOSUB 9200:GOTO 370 
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330 LOCATE 1.25: INPUT"HASTA LETRA ";SLS:SL$=UPPERS(SLS):SL=ASCiSLS):IF SL<65 GR 
SL >30 OR LEN(SLS)>1 OR PL>SL THEN GOSUB 9200:G0T0 37 
O 

390 GOSUB 9200:GOSUB 2000:IF K=100 THEN 370 ELSE E(S)=3:G0SUB 3300 

400 NEXT:PEN 2:RESTORE 9400:FOR Y=3 TO 13 STEP 5:FOR X=2 TO 17 STEP 5:READ A:LOC 
ATE X.Y:PRINT CHRS(A);NEXT:NEXT 
410 GOSUB 2500 

420 L$=INKEYS:IF LS= " " THEN 420 
430 LS=UPPERS(L$>:SOUND 1.10.3 
440 IF LS="A" THEN lOOOO 

450 IF L$="0" THEN ERASE A.C.E:GOTO 60 
460 IF LS="F" THEN 4000 
470 IF L$="I" THEN 5000 
430 GOTO 420 

2000 IF PLCÓ9 THEN R=64:YY=2 ELSE IF PL<73 THEN R=Ó3¡YY=7 ELSE IF PL<77 THEN R=7 
2:YY=12 ELSE R=7ó:YY=17 

2010 XX=(PL-R > *5-1: IF ABS(PL-SL)<>1 THEN XX = XX-2:YY = YY + 3 

2020 S=(XX+1) /5: IF Y Y=2 THEN S = S ELSE IF YY = 7 THEN S = S + 3 ELSE IF YY=12 THEN S = S + 
ó ELSE IF YY=17 THEN S=S+9 ELSE 2040 
2030 GOTO 2045 

2040 S=<XX+3)/5+12:IF YY=10 THEN S=S+4 ELSE IF YY=15 THEN S=3+3 

2045 IF S=14 OR S=15 OR S=13 OR S=19 OR S = 22 OR 3 = 23 THEN K=100: GOTO 2070 

2050 K = 0:IF A (S. 1)00 AND A (S. 2)00 THEN K=100 

2060 IF K=100 THEN 2070 ELSE A(S.1)=XX:A(S.2>=YY 

2070 RETURN 

2500 PEN 2: LOCATE 1.21:PRINT"F PONER EN MARCHA ": LOC ATE 1.22:PRINT"I ABRIR/ CERRAR 

":LOCATE 3.23!PRINT"INTERRUPTORES":LOCATE 1.24:PRINT 

"O OTRO CIRCUITO":LOCATE 1.25:PRINT"A ABANDONAR":RETURN 

2510 FOR Z=20 TO 25:L0CATE Í.ZIPRINT STRINGS(19.32):NEXT:RETURN 

3000 SOUND 1.100.5:PEN 6:L0CATE A(S.1).A(S.2)+1:PRINT P1S:L0CATE A<S . 1) .A(3.2) +2 
:PRINT P2S:PEN l:RETURN 

3045 IF S=14 OR S=15 OR S=13 OR S=19 OR S=22 OR 3=23 THEN 2070 

3100 PEN 3:LOCATE A(S.1).A(S.2):PRINT BAS;PEN 11:LOCATE A<S , 1> , A<S.2)+1:PRINT B$ 
:PEN i:RETURN 

3150 PEN 1 : LOCATE A<S.1).A<S.2):PRINT BES: PEN 1 1 : LOCATE A ( S . 1 ) . A < S . 2) + 1 : PR I NT BS 
:PEN 1:RETURN 

3200 PEN 4:L0CATE A(S. 1) .A(S.2) :PRINT T AS:PEN 5:L0CATE A(S. 1) .A<S.2)+1:PRINT T$: 
PEN 1:RETURN 

3250 PEN 7: SOUND 1 . 10 , 1 : LOCATE A < S . 1 ) , A < S , 2 ) : PRINT TE^:F’EN 5: SOUND 1 . 10 . 1 : LOC ATE 
A(S. 1) .A(S.2)+1:PRINT T$:PEN 1:RETURN 

3300 PEN 3:L0CATE A ( S . 1 ) . A ( S . 2 ) + 1 : IF S<13 THEN PRINT IH3>:LGCATE A ( S. 1 ) - 1 . A < S . 2 ) : 
PRINT S ELSE PRINT IV<S: LOCATE A ( S . 1 ) + 1 . A ( S . 2 ) + 1 : PR IN 
T RIGHT$(STR*<S).ABS<S>9)+1) 

3310 PEN l:RETURN 

3350 PEN 3:LOCATE A<S.1).A<S.2)+1:IF S<13 THEN PRINT CH$ ELSE PRINT CVS 
3360 PEN 1:RETURN 

4000 GOSUB 2510:LOCATE 1.24:PRINT"PULSA N PARA PARAR":LOCATE 5.25:PRINT"EL CIRCU 
I TO " 

4005 IF E(21)=3 OR E(10)=3 OR E(12)=3 OR E(24)=3 THEN RESTORE 9700:F0R Z=1 TO 13 
:read x:c(X)=o:next:goto 4070 

4010 IF E(17)=3 OR E(20)=3 THEN RESTGRE 9710:FOR Z=1 TO 10:READ X:C(X)=0:NEXT:GO 
TO 4030 

4015 IF E(13)=3 OR E(1)=3 OR E(2)=3 OR E<3)=3 OR E(ló)=3 THEN T=0 ELSE T=1 
4017 RESTORE 9720:F0R Z=1 TO 5:READ X:C(X)=T:NEXT 
4020 IF E(4)=3 OR E<5>=3 OR E(ó)=3 THEN T=0 ELSE T=1 
4022 FOR Z=4 TO ó:C(Z)=T;NEXT 

4025 IF C(1)=0 AND C(4)=0 THEN T=0 ELSE T=1 
4027 C( 17)=T:C(20)=T 
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4030 IF E ( 7)=3 0R E(8)=3 OR E<9)=3 THEN T=0 ELSE T=1 

4033 FOR 2=7 TO 9:C(Z)=T:NEXT 

4040 IF C ( 17 ) = 1 OR C(7)=l THEN T=i ELSE T=0 

4050 RESTORE 9730:FOR Z=1 TO 4:READ X:C(X)=T:NEXT 

4070 L$=INKEY$:IF L$="N" OR L$="n" THEN 4200 

4030 RESTORE 9700:FOR Z=1 TO 18:READ S 

4090 IF C(S)=0 THEN 4130 

4100 IF E(S)=1 THEN GOSUB 3150 

4120 IF E (S)=2 THEN GOSUB 3250:S0UND 1,100,5,15:GOSUB 3200 
4130 NEXT 
4140 GOTO 4070 

4200 RESTORE 9700:F0R Z=1 TO 13:READ S:C(3)=0:IF E(S)=1 THEN GOSUB 3100 ELSE IF 
E (S)=2 THEN GOSUB 3200 

4210 NEXT:GOSUB 2510:GOSUB 2500:GOTO 420 

5000 PEN 2:GOSUB 2510:LOCATE 1,24:INPUT”QUE INTERRUPTOR”iIN:IF IN<0 OR IN>24 OR 
IN< >INT(IN) THEN GOSUB 2500:GOTO 420 

5010 S=IN:IF E(S)=3 THEN GOSUB 3350:E(S)=4 ELSE IF E(S)=4 THEN GOSUB 3300:E(S)=3 
5020 GOSUB 9200:GOSUB 2500:GOTO 420 

9000 DATA " CIRCUITOS ELECTRICOS EN SERIE"...." Con este Droqrama nodras di 

se@ar,a tugusto. circuitos eléctricos en los que" 

.se combinan distintos componentes como."son: PILAS. BOMBILLAS. TIMBRES E".INTER 
RUPTORES. 

9010 DATA .." Todos estos componentes podran ir".colocados en una parrilla con 
24 posi-.ciones distintas..." El obietivo del pro^r 

ama es que por" .medio del i ueqo se puedan aprender las. bases del "funcionamiento 
de la electri-.cidad. 

9020 DATA .." Si quieres abandonar el programa a".medias pulsa la tecla A..." 
PULSA UNA TECLA PARA CONTINUAR" 

9100 SYMBOL AFTER 32:SYMB0L 64,113,216,O,216,102,102,102,O:RETURN 

9110 SYMBOL 190,7,24,35,36,34,17,9,9:SYMBOL 191,224,24,196,36,68,136,144,144:SYM 

BOL 192.31.15.7.15.3.7.1.1:SYMBOL 193.243.240.224.24 

O. 192.. 224.. 123. 123: SYMBOL 194.7.31.63.. 63.. 63.31.15. 15: SYMBOL 195.224.134.220.220.2 
20.184.240.240 

9120 SYMBOL 196,7,7,7,7,7,7,15,15:SYMBOL 197.224.224.224.224.224.224.240.240:SYM 
BOL 193.3.12.17.33.32.17.14.7:SYMBOL 199.240.56.204. 

198.134. 12.56.240: SYMBOL 200.35,. 76,. 147.162.160.145.78.39: SYMBOL 201.244.58. 173.2 
30.134.. 13.53.244 

9130 SYMBOL 202. 12.28.43.227.195.O.0.0:SYMBOL 203.24.24.192.192.96.48.24.24:SYMB 
OL 204.0.0.0.232.208.32.127.125:SYMBOL 205.121.125,1 

25. 127, 125, 126, 127, 127: SYMBOL 206,0,64,32,23, 11,4,254,62:SYMBOL 207,222, 190,30.2 
54,222,190,126,254 

9140 B$=CHR$ (192) +CHR* (193) : BA$=CHR$ (190) +CHR$ ( 191 ) : BE3»=CHR95 ( 194) +CHR« (195) : T*=C 
HR«(196)+CHR$(197):TA*=CHR*(193)+CHR$(199):TE^=CHR*( 

200)+CHR^(201):IHS=CHR*(202):IV*=CHR$(203):P1$=CHR$(204)+CHR*(20ó): P2*=CHR$(205 
)+CHR*(207):E*=CHR$(32):EE$=E*+Eí 

9150 CVS¡=CHR*< 149) : CH$=CHRS ( 154 ) : VD«=CHR* ( 151 ) : V I$=CHR$ ( 157 ) : HB$=CHR« ( 158 ) : HS$=C 
HR$(155):CR$=CHR$(159):SD$=CHR$(150):SI$=CHR*(156):B 
I«=CHR$(153):BD$=CHR$(147):RETURN 

9200 LOCATE 1,24:PRINT STRING$(20,32):LOCATE 1,25:PRINT STRING$(19,32):RETURN 

9400 DATA 150,154,154,156,151,154,154,157,151,154,154,157,147,154,154,153 

9700 DATA 1,2,3,4,5,6,7,3,9,10,11,12,13,16,17.20.21.24 

9710 DATA 17,13,1,2,3,4,5,6,16,20 

9720 DATA 13,1,2,3,16 

9730 DATA 21,10,12,24 

10000 MODE l:PEN l:CLS:SYMBOL AFTER 31 : PRINT" PREPARADO PARA EL SIGUIENTE PROGRAM 
A":RUN"" 
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VXXXA fXXX VXvXi VX-'XA VX’X'A V/X’/A tyXX'i VXX’X VXxX-i 


jXXXxi fyyXX íX-X-X VsXXX VXXXi k'XXi VX-yXi V/X’XI VX-'/X-i PXX4i ^ 

^ ¿¿g E%%g fs?3 ímn wm wza &&& wza Tzm 


DADOS-21 


4 INK 0,1:INK 1.24: INK 2,6¡INK 3,26:INK ó,18,ó:PEN 1:PAPER O:BORDER 1:CLS 

5 ENV 1 , 10,4,3,8,-4,3,3,-1 , 10,6,5,2,4.--5,3 

10 MODE l: RESTORE 10100: FOR 1 = 1 TO 17: READ X*: LOCATE 1,1¡PRINT X$:NEXT I 
12 X$=INKEY$:IF X$="" THEN 12 

20 MODE O:SYMBOL 250,255,255,240,243,220,206,199,195:SYMBOL 251.255.255.15.31.59 
. 115.227,. 195: SYMBOL 252,. 195. 199,. 206.220,. 243.240.255. 

255: SYMBOL 253. 195.227.115.59.31.15.255,. 255 

22 WIMDOW #1,1,10,2,18:WINDOW #2.1.20, 20,24 : PAPER #1,0:WINDOW #3,13,20,14,19:PEN 
#1.1:PAPER #2,3:PEN #2.2:CLS#1:PAPER #3.0 
100 CLSIIMPUT "Cual es tu nombre " ; r.$ 

102 IF LEN(n$)>9 THEN 100 ELSE CLS 

103 PEN 2:LOCATE 12,4:PRINT N$:LOCATE 12,6:PRINT OíLOCATE 12,3:PRINT"AMSTRAD":LO 
CATE 12.10:PRINT O 

104 su=0:x=RND:IF x<0.5 THEN am=0:G0T0 3000 
106 am=l:GOTO 2000 

200 SOUND 1.956.30.7...1:SOUND 1.38.40.6:IF cs=l THEN RESTORE 8000 

202 IF cs=2 THEN RESTORE 8002 

204 IF cs=3 THEN RESTORE 8004 

206 IF cs=4 THEN RESTORE 8006 

208 IF cs=5 THEN RESTORE 3008 

210 IF cs=ó THEN RESTORE 3010 

211 FOR i=0 TO 5¡READ x$: d$(i)=X$;NEXT i 

212 LOCATE #1.2,2¡PRINT #1,"SUMAsu:LOCATE #1,2,4:PRINT #1,CHR$(250)í:FOR i=l 
TO 7:PRINT #1,CHR$(203)5:NEXT i:PRINT #1,CHR$(251) 

214 LOCATE #1,2,5:PRINT # 1 , CHR$ ( 21 i ) ? CHR$ ( 205 ) ! " ";d$(0);" " i CHR$ ( 204 ) ! CHR$ ( 20 
9) 

216 LOCATE #1,2, ó ¡PRINT #1 , CHR« (211 ) ¡ “ S CHR$ < 205 ) ; " " ! CHR$ ( 204 ) .CHR$(209) 

218 LOCATE #1,2,7:PRINT #1,CHR$(211>i" " ! CHR$ ( 135) 5 CHR$ ( 131 ) i CHR$ ( 139 ) -, " " i CHR 
$(209) 

220 LOCATE #1,2,8:PRINT #1,CHR$(211) ;d$(1) i " "!CHR$(133) Sd$(2) iCHR$(138) .d$ ( 

3)!CHR$(209) 

222 LOCATE #1,2,9:PRINT #1 , CHR3> ( 211 ) i " ” ! CHR$ ( 141 ) ! CHR$ ( 140) ! CHR$ ( 142 ) ¡ " ” i CHR 
$(209) 

224 LOCATE #1,2,1O:PRINT #1,CHR$(211)S" "!CHR$(204);" "¡CHR$(205)!" ";CHR$(209 

) 


226 LOCATE # 1,2,1 1 : PR I NT #1 , CHR$ (211) ; CHR$ (204) i " ,, ¡d$(4)5” " 5 CHR$ ( 205 ) ¡ CHR$ ( 2 

09) 

223 LOCATE #1,2,12:PRINT #1,CHR$(252>;:FOR i=l TO 7:PRINT #1,CHR$(21O)!:NEXT i:P 
RINT #1,CHR$(253) 

230 LOCATE #1,5,15:PRINT #1,CHR$(150)iCHR$(154)!CHR$(i56) 

232 LOCATE #1.5.1ó:PRINT #1.CHRÍ(149)5d$(5);CHR$(149) 
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234 LOCATE ttl .5. 17: PRINT # 1 . CHR$ ( 147-) 5 CHR$ ( i 54 ) ! CHR$ < 153 ) 

236 RETURN 

300 CLS#2;LOCATE #2.4.3:PRINT#2."COJO LA CARA: ";CE:FOR 1 = 1 TO 3000:NEXT I:RETURN 
400 IF su< 21 THEN GOTO 3000 

410 IF 5U=21 THEN ga=ga+1:LOCATE 12.10:PRINT ga:x$="PERDISTE":GOTO 550 
420 IF SU >21 THEN gu=gu+1:LOCATE 12.ó:PRINT gu:x$="GANASTE":GOTO 550 
500 IF su< 21 THEN GOTO 2000 

510 IF su >21 THEN ga=ga+1:LOCATE 12.10:PRINT ga:x$="PERDISTE":GOTO 550 

520 IF SU=21 THEN gu=gu+1:LOCATE 12.ó:PRINT gu:x$="GANASTE":GOTO 550 

550 PEN #3.ó:FOR 1=1 TO ó:LOCATE #3.1.I:PRINT#3.X*:NEXT I:RESTORE lOOOOlFOR 1=1 

TO 16:READ J:SOUND 1.J.25.7.1..1:NEXT I:FOR 1=1 TO 1 

500:NEXT 

560 PEN #3.3CCLS #3:L0CATE #3.1.2:PRINT #3."1:OTRA":LOCATE #3.1.5:PRINT #3."2:FI 
N" 

562 D*=INKEY$:IF DS="1" THEN 570 ELSE IF D$="2" THEN 5000 ELSE 562 
570 CLS #3:SU=0:IF AM=1 THEN AM=0:GOTO 2999 
572 IF AM=0 THEN AM=1:G0T0 2000 

600 CLS 442: IF CS=1 OR CS=Ó THEN X$= " 2 3 4 5" ELSE IF CS = 2 OR CS=5 THEN XS>= " 1 

3 4 ó" ELSE X$="1 2 5 ó" 

602 LOCATE442.4.2: PRINT442. "QUE CARA COJES" : LOCATE442.6.4: PRINT442. X$ 

610 D$=INKEY$: IF D$= " " THEN 610 ELSE IF D$< >M I D3¡ < X*. 1 . 1 ) AND D$< >M IDS ( X$. 4.1 ) AN 
D D$OMID$(X$.7.1) AND D$< >MID3» (X*. 10. 1) THEN 610 
612 ce=VAL(d«)¡RETURN 


1000 

1004 

IF c s=1 

RETURN 

OR 

CS = ó 

THEN 

ce=2 

ELSE 

ce= 1 

1010 

1014 

IF cs=2 

RETURN 

OR 

C 5 = 5 

THEN 

ce= 1 

ELSE 

ce=2 

1020 

1024 

IF cs=3 

RETURN 

OR 

cs=4 

THEN 

ce=l 

ELSE 

ce = 3 

1030 

1034 

IF cs=3 

RETURN 

OR 

C5 = 4 

THEN 

ce=2 

ELSE 

ce=4 

1040 

1044 

IF cs = 2 

RETURN 

OR 

cs=5 

THEN 

ce=2 

ELSE 

ce=5 

1050 

1054 

IF cs=l 

RETURN 

OR 

C S = ó 

THEN 

ce=3 

ELSE 

ce=6 

1060 

1064 

IF c 5 = 2 

RETURN 

OR 

C 5 = 5 

THEN 

ce=3 

ELSE 

ce=2 

1070 

1074 

IF c 5 = 3 

RETURN 

OR 

C5 = 4 

THEN 

ce= 1 

ELSE 

ce=4 

1080 

1084 

IF c 5 =1 

RETURN 

OR 

cs=6 

THEN 

ce=2 

ELSE 

ce= 1 

1090 

1094 

IF c 5 = 2 

RETURN 

OR 

cs=5 

THEN 

ce= 1 

ELSE 

ce=5 

1100 

1104 

IF c s = 2 

RETURN 

OR 

c s=5 

THEN 

ce=3 

ELSE 

ce=2 

1110 

1114 

IF c s = 3 

RETURN 

OR 

C5 = 4 

THEN 

ce= 1 

ELSE 

ce=3 

1120 

1 124 

IF cs=3 

RETURN 

OR 

C5 = 4 

THEN 

ce= i 

ELSE 

ce=4 

1130 

1134 

IF c5=2 

RETURN 

OR 

cs=5 

THEN 

ce=l 

ELSE 

c e=5 

1140 

1144 

IF C 5=1 

RETURN 

OR 

C5 = ó 

THEN 

ce=3 

ELSE 

ce=ó 

1150 

1154 

IF cs=2 

RETURN 

OR 

cs=5 

THEN 

ce=3 

ELSE 

c e=2 

1160 

1164 

IF C 5=1 

RETURN 

OR 

cs=2 

THEN 

c e=4 

ELSE 

ce= 1 

1170 

1174 

IF cs=l 

RETURN 

THEN ce : 

=24 ELSE ce=1 
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USO ce=l : RETURN 
1190 ce=2!RETURN 

2000 CLS #1:IF suOO THEN 2100 

2010 x=RND:IF x >0.5 THEN ce=3 ELSE ce=4 

2020 GOTO 2110 

2100 ON SU GOSUB 1190.1130.1170.1160.1150.1140.1130.1120.1110.1100.1090.1080.107 

O.. 1060.. 1050,1040. 1030. 1020.. 1010. 1000 

2110 cs=ce:su=su+cs:GOSUB 200:G0SUB 300:G0T0 400 

2999 CLS #1 

3000 IF su.< >0 THEN 3100 

3010 CLS #2:LOCATE #2.4.2:PRINT#2."QUE CARA COJES":LOCATE #2.3.4:PRINT «2.”i 2 
3 4 5 6" 

3012 x$=INKEY$: IF x$< " 1 " OR x$>"6" THEN 3012 ELSE ce=VAL (x$) : GOTO 3110 
3100 GOSUB 600: CLS #1:CLS #2 

3110 cs=ce:5U=5U+cs:GOSUB 200:FOR 1=1 Tú 2000:NEXT I:GOTO 500 
5000 MODE l:RUN" 

" ó " 


3000 DATA "3"."2". 

3002 DATA "3"."6". 
3004 DATA "ó"."2". 
3006 DATA " 1 " . "2". 

3003 DATA "4"."6". 
3010 DATA "4”."2", 
10000 DATA 353.319 
10100 DATA " 


5" 
1 11 


II Q II 
•• » 

II II 

"ó" 

"3" 


H ^ ii 

"3" 

ii 2 n 

ii | H 


284.234.284.253.234.353.426.426.379.358.358.379.426.379 

DADO 21”.." El obietivo del presente iuego es sumar" 
."21 puntos con el dado que aparece en la"."pantalla 

. oor turno se ha de ir voltean- 11 , "do el dado sobre una de las cuatro caras" 
10101 DATA”1aterales sumándose la nueva cara supe-", “rior. " El que logre suma 
r 21 gana., el que se" , "pase de 21 pierde."......" 

PULSA TECLA PARA COMENZAR" 
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TENIS 


’ INK 0.1IINK 1J 24:PEM 1:PAPER O:BORDER 1: MODE 1 

7 RESTORE iOOOO;FOR 1=1 TO 1ó:READ X*;LOCATE 1.I:PRINT X*:NEXT I 
4 X*=INKEY*:IF X$="" THEM 4 ELSE CLS 

10 CLS:INPUT " Nombre del i uqador 1 <rnax. 10 letras) "!r.$:lF LEN < ri$) >10 THEN 10 
12 CLS:INPUT "Nombre del jugador 2 (max. 10 letras) "¡m$:IF LEN(m3¡)>10 THEN 12 
14 CLS:LOCATE 9.10:PRINT"NIVEL DE JUEGO (1 o 2)" 

16 x«=INKEY$: IF x$="l" THEN n i = 1 ELSE IF x35= " 2" THEN n i =2 ELSE 16 

20 CLS;pn=0:pm=0:PX=10:PY=10:xi=6:Yl=l1:X2=35:Y2=10:GOSUB 2000 :G 0 T 0 900 


100 

-1) 

i 02 

IF y < y 1-2 OR v>yl+2 THEN RETURN 
THEN SOUND i.100.5.7:ix=-ix:iv= 
SOUND 1. 100.5.7: ix = -ix:RETURN 

ELSE IF (y=y1-2 
-i y:RETURN 

AND 

i y= 1) 

OR 

(y=y 1+2 

AND 

i y= 

110 

- 1 ) 

1 1 2 

IF y < y 2 - 2 OR y>y 2->-2 THEN RETURN 
THEN SOUND 1.100,5.7:lx=-ix:iy= 
SOUND 1.100.5,7:ix=-ix:RETURN 

ELSE IF (y=y2-2 
-iy:RETURN 

AND 

iy=l) 

OR 

<y=y2+2 

AND 

i y= 

120 

- 1 ) 

URN 

122 

IF y < y1 -1 OR y>yl + i THEN RETURN 
THEN SOUND 1.100.5.7:ix=-ix:iy= 

SOUND 1.100.5.7:ix=-ix: X=DX :v=n 

ELSE IF < y = Y1-1 

- i y: x=dx: y=py :ret 

v:RETURN 

AND 

i y = 1) 

OR 

(y=y1+1 

AND 

i y = 

130 

-1 ) 

IF y < y 2-1 OR y >y2 +1 THEN RETURN 
THEN SOUND 1,100.5,7:ix=-ix:i y= 

ELSE IF ( y=v2-1 
-iy:x=px:y=pv:RET 

AND 

i y= 1) 

OR 

(y=y 2 + 1 

AND 

i y = 


IJRN 

132 SOUND 1.100.5.7:ix=-ix:x=px:y=py:RETURN 

140 FOR I = -l TO i:LOCATE x1.y 1 + i:PRINT" ":NEXT i:FOR i=-l TO 1:LOCATE xx.yy+i:PR 

INT CHR$<133):NEXT i:x1=xx:y1=yv:RETURN 

150 FOR I = -l TO 1:LOCATE x2,y2+i:PRINT" ":NEXT i:FOR i=-l TO 1:LOCATE xx,yy+i:PR 

INT CHR*<133):NEXT i:x2=xx:v2=yy:RETURN 

900 LOCATE PX,PY;PRINT" ":FOR i=6 TO 35:X$=INKEYS:LOCATE i.1:PRINT CHR$(143):LOC 
ATE i.20:PRINT CHR$(143):NEXT i:xx=ó:yy=11:GOSUB 140 
;xx=35:yy=10:GOSUB 150 

910 px=21:py=10:IY=1:Z=RND: IF 2 < O.5 THEN iX=i ELSE iX=-l 
1000 WHILE <px< 35 AND px>6) 

1010 x=px+ix:y=py+iy;IF y=2 OR y=19 THEN iy=-i y:SOUND 1.150.5.7 

1020 IF (x = x1 + 1 AND ix = -l) THEN GOSUB 100 ELSE IF (x = xl AND ix = -l) THEN GOSUB 12 
O 

1030 IF (x = x2-1 AND ix = i> THEN GOSUB 110 ELSE IF vx = x2 AND ix=l> THEN GOSUB 130 

1040 LOCATE px.py:PRINT” ":LOCATE x. y:FRINT CHR*(144):px=x:py=y 

1060 x*=INKEY*:lF (x*=”a" OR x$="8") AND yl>3 THEN xx=x1:yy=y1-1:GOSUB 140 

1065 IF xS="C" AND y 2 > 3 THEN xx = x2:yy=y2-1:GOSUB 150 

1070 IF <x*«"a* OR ;<$="A" ) AND yl< 18 THEN xx = x 1 ; yy = y 1 +1 : GOSUB 140 

1075 IF x*="3" AMD y2<13 THEN xx=x2:yy=y2+1:GOSUB 150 

1077 I er ni = 1 THEN GOTO 1200 
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loso IF AMD x2<34 THEN xx = x2+1 : vy=y2: GOSUE 150 

10S5 IF (x$="x” OR x$="X") AND xl<18 THEN xx = x1+1:yy=y1:GOSÜB 140 

1090 IF x$=" /" AND x.2>22 THEN xx=x2-1 : yy = y2: GOSUE 150 

1095 IF (x$="Z" OR x*=”z") AND xl>7 THEN xx=x1-1:yy=y1:GOSÜB 140 

1200 X$=INKEY$:WEND 

1300 IF PX >34 THEN PN=PN+1 ELSE PM=FM+1 
1302 GOSÜB 2000¡GOTO 900 

2000 LOCATE 6.22IPRINT n$! " : ” ; p r.: LOCATE 6,24:PRINT ? prn: LOCATE 9.1:PRINT"1: 

PARTIDA 2:ABANDONAR" 

2002 X*=INKEY^: IF X$="l" THEN RETURN ELSE IF XS¡=" 2" THEN 4000 ELSE 2002 
4000 CLS:RUM" 

10000 DATA " TENIS"..” Juego de tenis para dos iugadores. con"."do 

s niveles de iusgo. en el nivel 1. la"."raqueta se m 

ueve solo en sentido vertí-","cal en el nivel 2, en sentido vertical y","horizon 
tal . " 

10002 DATA" El i u.gador- 1 esta a la izquierda y rnue-","ve con Q.A (arriba y abaio 
), Z.X (izo.","der.), y el iugador 2 esta a la derec 

ha"."y mueve con 1,1 (arriba y abai o) , \ " " (izo. der. PULSA TECLA 

PARA CONTINUAR" 
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EDITOR 


10 ’ PROGRAMA << CHR-EDITOR>> 
EDITOR DE CARACTERES 


20 ’ COPYRIGHT M.J.C. Sí F.A.P. 1985. 

25 SYMBOL AFTER 31:NC=l:DIM A(100.8) 

30 MODE 0:B0RDER l:INK 0.1:INK 1.26;INK 2.24:INK 3.8:PAPER o:pen i:cls 
40 LOCATE 5,5:PRIMT"CHR-EDITOR":PEN 3:LOCATE 7.12:PRINT"EDITOR":LOCATE 9.14:PRIN 
T"DE":LOCATE 5.16:PRINT"CARACTERES" 

50 FOR T=1 TO 2000 STEP 5:S0UND l,T.l:SOUND 2.T+10.1:NEXT 

60 MODE 1:INK 3.ó:PEN l:RESTORE 9000:FOR Z=1 TO 22:READ E$:LOCATE l.Z:PRINT E*:S 
O'JND 1.200.2: NEXT: GOSUB 9200:G0SUB 3000 

80 CLS:LOCATE 2.2:PRI NT"DEFINICION DE LAS TECLAS DE MOVIMIENTO":LOCATE 5.10:PRIN 
T"PARA SUBIR EL CURSOR?" 

90 S*=INKEYS:IF 5$=”” THEN 90 ELSE LOCATE 1.4:PRINT"SUBIR ";3$ 

100 LOCATE S.IOIPRINT STRIMG$(30.32):LOCATE 5.1O:PRINT”PARA BAJAR EL CURSOR?” 

110 B$=INKEY*: IF B35= " " THEN 110 ELSE LOCATE 20.4:PRINT"BAJAR " ; B$ 

120 LOCATE 5 .10:PRINT STRING*<30.32):LOCATE 1.10:PRINT”PARA LLEVAR A LA DERECHA 
EL CURSOR?" 

130 D*=INKEY*:IF D$="" THEN 130 ELSE LOCATE 
140 LOCATE I.IOIPRINT STRING$(39.32>:LOCATE 
A EL CURSOR?" 

150 I$=INKEY$:IF 1$="" THEN 150 ELSE LOCATE 20.6:PRINT"IZQUIERDA 


ó: PR INT".DERECHA " ; D$ 
10:PRINT”PARA LLEVAR 


A LA IZSUIERD 


1 $ 


154 LOCATE 1.10:PRINT STRINGS(39.32)¡LOCATE. 5.10:PRINT"PARA FIJAR EL CURSOR?" 

156 F$=INKEY*:IF F5="" THEN 156 ELSE LOCATE 1O.8:PRINT"FIJAR CURSOR ":F$ 

160 LOCATE 1.10:PRIMT STRIMG$(39.32):PRINT"ESTAS CONFORME CON ESTAS TECLAS (S/N) 


170 L<$=I NKEY$: IF L*=" " THEN 170 ELSE L$=UPPER$ (L$) : IF L$="N" THEN 30 ELSE IF L$< 
>"S" T HEN 170 

180 PEN i:CLS¡LOCATE 7. í:PRINT"MENU DE OPCIONES:":RESTORE 9100:FOR Z=1 TO 9: READ 
E*:LOCATE l,Z*2+2:PRINT Z 5 ".- "!E$:NEXT:LOCATE 6,23 
:PRINT"PULSA EL NUMERO DE LA OPCION”:SOUND 1.100.7 

190 L*=INKEY$: IF !_*="" THEN 190 ELSE L=VAL < L*) : IF L< 1 OR L>9 THEN 190 
200 CLS:ON L G0 T 0 300.300.300.300.300.3000.4000.5000.6000 
210 GOTO ISO 

300 LN=1:AL=1¡IF L=2 THEN LN=L ELSE IF L=3 THEN LN=L ELSE IF L=4 THEN LN=1:AL=2 

ELSE IF L=5 THEN LN=2:AL=LN 

305 H(O.O)=1:ERASE H:DIM H(AL*3.LN*3) 

310 PEN 2:K=l:F0R Z=1 TO AL*8:LOCATE l.Z+1 
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320 PRINT MID$(STR$(K),2,2):K=K+1:IF K=9 THEN K=1 
330 NEXT 

340 K=l:F0R Z=1 T0 LN*3:LOCATE 1+Z.l 

350 PRINT MID$(STR$(K>,2,2):K=K+1:IF K = 9 THEN K=1 
360 NEXT 

370 K$=STRING$ (LN*3, 144) : FOR Z=1 TO AL*3: LOCATE 2,Z+l:PRINT K$:NEXT 
375 IF S$=CHR$(240> AND B$=CHR$(241> AND D$=CHR$(243> AND I$=CHR$(242) THEN 390 
380 LOCATE 33.3:PRINT S$:LOCATE 30.ó:PRINT 1$:LOCATE 36.ó:PRINT D$:LOCATE 33.9:P 
RINT B$ 

390. LOCATE 30,1:PRINT"TECLAS:":LOCATE 33.4:PRINT CHR$(240):LOCATE 31.ó:PRINT CHR 
$(242);" "iCHR$(243):LOCATE 33.8;PRINT CHR$(241) 

400 LOCATE 31.1O:PRINT"FIJAR:":IF F$=CHR$<32) THEN LOCATE 30,ll:PRINT "<SPACE>" 
ELSE LOCATE 33,11:PRINT F$ 

405 LOCATE 28,13:PRINT"<ENTER> PARA":LOCATE 30,14:PRINT"TERMINAR" 

410 INK 3,6,26:SPEED INK 3,3:H=1:V=1:PEN 3:L0CATE H+1,V+1:PRINT CHR$(143) 

420 L$=INKEY$:IF L$=CHR$(13) THEN SOUND 1,100,5:GOTO 1500 

430 IF L$=S$ AND V>1 THEN SOUND 1,50,1:GOTO 1000 

440 IF L$=B$ AND V<AL*3 THEN SOUND 1,50,1:GOTO 1100 

450 IF L$=D$ AND H<LN*3 THEN SOUND 1,50,1:GOTO 1200 

460 IF L$=I$ AND H>1 THEN SOUND 1,50,1:GOTO 1300 

470 IF L$=F$ THEN SOUND 1,300,3:GOTO 1400 

430 GOTO 420 

1000 GOSUB 2000:V=V-1:GOSUB 2100:GOTO 420 
IlOO GOSUB 2000:V=V+1:GOSUB 2100:GOTO 420 
1200 GOSUB 2000:H=H+1:GOSUB 2100:GOTO 420 
1300 GOSUB 2000:H=H-1:GOSUB 2100:GOTO 420 
1400 IF H(V,H)=0 THEN H(V,H)=1 ELSE H(V,H)=0 
1410 GOTO 420 

1500 GOSUB 2000:XR=16:D(1)=1:ERASE D:DIN D(8) 

1505 IF AL=2 THEN XR=13 

1510 FOR Z=1 TO LN:FOR X=1 TO AL 

1520 CK=3:GOSUB 1300 

1530 PEN 2:L0CATE 1,24:PRINT STRING$(40,32) :LOCATE 3,24: INPUT"N. DEL CARACTER QU 
E TRANSFORMAMOS";T 

1540 LOCATE 1,24:PRINT STRING$(40,32) 

1550 IF T < 33 THEN LOCATE 1,24:PRINT"CARACTER PROHIBIDO, ESTA RESERVADO":GOTO 157 
O ELSE IF T< >143 AND T<>144 THEN 1530 

1560 IF T =143 OR T=144 THEN LOCATE 1,24:PRINT"CARACTER PROHIBIDO, ES "¡CHR$(T) E 
LSE 1530 

1570 SOUND 1,1000,30:FOR T=1 TO 2000:NEXT:LOCATE 1,24:PRINT STRING$(40,32):GOTO 
1530 

1530 LOCATE 1,24:PRINT"ANTIGUO CARACTER: ";CHR$(T>:LOCATE 9,25:PRINT"LO TRANSFOR 
MAMOS (S/N)" 

1590 L$=INKEY$:IF L$="" THEN 1590 ELSE L$=UPPER$(L$):IF L$="N" THEN LOCATE 1,24: 
PRINT STRING$(40,32):LOCATE 1,25:PRINT STRING$(39,32 
):GOTO 1530 ELSE IF L$<>"S" THEN 1590 

1595 LOCATE 1,24:FRINT STRING$(40,32):LOCATE 1,25:PRINT STRING$(39,32> 

1600 CC=0:F0R Y=X*3-7 TO X*3:SOUND 1,200,5:G$="":CC=CC+1:FOR I=Z*8-7 TO Z*8:S0UN 
D 1,100,2:G$=G$+RIGHT$(STR$(H(Y,I)),1):NEXT:A(NC,CC) 

= VAL ( " 8cX " +G$) : D (CC ) =A (NC , CC ) : NEXT 

lóio a(nc,o)=t;nc=nc+i 

1620 LOCATE 1,XR:PRINT t;":";:for 1=2 TO 9:L0CATE i*4,xr:print USING"##tt";A(NC-1 
, I - 1):NEXT 

1625 CK=2:GOSUB 1300 

1630 SYMBOL T,D(1),D(2),D(3),D(4),D(5),D(6),D(7),D(8):XR=XR+2:NEXT 
1640 NEXT 

1650 GOSUB 8000:GOTO 130 
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1800 PEN CK:K-l:F0R y=x*8-8 T0 x*3:L0CATE l.v+l:PRINT MID*(STR$(K>.2.2):K=K+1:NE 

XT ‘ 

1810 K=l:FOR I=Z*8~3 TO Z*3:L0CATE l+I.l:PRINT MID$(STR$(K).2.2):K=K+1:NEXT:RETU 
RN 

2000 LOCATE H+1,V+1:IF H(V,H)=0 THEN PEN 2:PRINT CHRS¡(144> ELSE PEN 1:PRINT CHR$ 
(143) 

2010 RETURN 

2100 PEN 3:L0CATE H+1,V+1:PRINT CHR$i ( 143 ) : PEN 2:RETURN 
3000 PEN i:LOCATE 5.1:PRINT"VER LOS CARACTERESCC=24:CF=1 

3010 LOCATE 1.22: PR I NT 11 PARA VOLVER AL MENU PULSA M": LOCATE 1,23:PRINT"PARA VER O 
TRu CARACTER PULSA O"¡LOCATE 1,24:PRINT"PARA CAMBIAR 
COLOR DEL CARACTER PULSA C"¡LOCATE 1.25¡PRINT"PARA CAMBIAR COLOR DEL FONDO PULS 
A F" 

3020 LOCATE 3.20 ¡ INPUT " QUE CARACTER QUIERES VER 11 5 T 

3030 LOCATE 3,20:PRINT STRI NG$ (37,32) ¡ IF T<33 OR T>255 OR TOINT(T) THEN 3020 
3040 PEN 2¡LOCATE 20.12¡PRINT CHR$(T) 

3050 L$=INKEY$¡IF L$="" THEN 3050 ELSE L$=UPPER$(L$)¡IF L$="M" THEN GOSUB 3600:G 
OTO 180 ELSE IF L$=”0” THEN GOSUB 3600¡CLS¡GOTO 3000 
ELSE IF L*="C" THEN 3300 ELSE IF L$="F" THEN 3500 ELSE 3050 
3300 CC = CC+1¡ IF CC >2ó THEN CC = 0 ELSE IF CC = CF THEN CC = CC + 1¡IF CC>2é THEN CC=0 
3310 INK 2,CC¡GOTO 3050 

3500 CF=CF+1¡IF CF>26 THEN CF=0 ELSE IF CC=CF THEN CF=CF+1:IF CF>26 THEN CF=0 
3510 INK O.CF¡GOTO 3050 
3600 INK 0,1¡INK 2,24¡RETURN 

4000 IF NOO THEN PRINT" PREPARA EL CASSETTE PARA ALMACENAR TODOSLOS CARACTERES Q 
UE HAS DEFINIDO" ELSE GOTO 130 

4010 PRINT:PRINT:SPEED WRITE 1:PRINT"NOMBRE DEL ARCHIVO":PRINT"<rnaximo 10 caract 
eres)":PRINT:PRINT:INPUT N*:IF LEN(N*)>10 THEN CLS:G 
OTO 4010 

4015 CLS:LOCATE 2,12:PRINT"ALMACENANDO"!NC-1!"CARACTERES DEFINIDOS" 

4020 OPENOUT N$ 

4030 PRINT#9,NC 

4040 FOR Z=1 TO NC-1:F0R X=0 TO 3 
4050 PRINTM9,A(Z,X) 

4060 NEXT:NEXT 
4070 CLOSEOUT 

4080 CLS:LOCATE 9,12:PRINT”CARACTERES ALMACENADOS":GOSUB 8000:GOTO 180 
5000 PRINT”CARGA DESDE EL CASSETTE DE CARACTERES DEFINIDOS”:PRINT:PRINT 

5010 OPENIN "" 

5020 INPUT#9,NC 

5030 A(1 , 1)=1:D(1)=1:ERASE A.D:DIM A(100,3),D(3) 

5040 FOR Z=1 TO NC-l:FOR X=0 TO 3 
5050 INPUT#9.A(Z.X):D(X)=A(Z.X) 

5060 NEXT¡SYMBOL D(0),D(1).D(2),D(3).D(4).D(5).D(6).D(7).D(3):NEXT 
5070 CLOSEIN 

5030 CLS:LOCATE 1,12:PRINT NC-1!"CARACTERES CARGADOS DESDE CASSETTE":GOSUB 8000' 
GOTO 180 

6000 SYMBOL AFTER 31:M0DE 1:INK 0,1: INK 1,24:PAPER O:PEN 1:CLS:PRINT"PREPARADO P 
ARA EL SIGUIENTE PROGRAMA":RUN"" 

8000 LOCATE 2,25 : PRINT"PULSA CUALQUIER TECLA PARA CONTINUAR" 

3010 IF INKEY$="" THEN 3010 
3020 RETURN 

9000 DATA "EDITOR DE CARACTERE 3"."=========================== 

==== ===== = :=== " .■ ? 11 Este programa permite la def inicio 

n de",nuevos caracteres no existentes en la,serie de caracteres gráficos oue inc 
or-,pora el AMSTRAD., 


24 ■ AMIGOS DEL AMSTRAD - 1987 





9010 DATA " Podras, de esta forma, definir figuras", "ineditas para tus d i bu. i os. 
■gráficas y", iuegos. . . " El carácter recien definido 

podras" . asignarlo a cualquiera de los existentes. " (desde el 33 al 255). de forrn 
a que" 

9020 DATA debes tener cuidado con ciertos números.(ver manual AMSTRAD Apéndice I 
II p 2-13).." Los caracteres que puedes crear serán 

".todos de 3x3 puntos pero con el pro-.grama puedes definir figuras formadas.p 
or mas de un carácter, 

9100 DATA DEFINIR CARACTER 1 x 1.DEFINIR CARACTERES 2 x 1.DEFINIR CARACTERES 3 x 
1.DEFINIR CARACTERES 1 x 2,DEFINIR CARACTERES 2 x 2 
.VER CARACTERES.ALMACENAR CARACTERES EN CASSETTE.CARGAR CARACTERES DESDE CASSETT 
’e.FIN DEL PROGRAMA 

9200 SYMBOL 144.255.129.129.129.129.129.129.255:RETURN 
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SUBMARINO 


10 ’ <<< SUBMARINO >>> 

20 ’ 

30 SYMBOL AFTER OrMODE 1:BORDER 11:INK O,11:INK 1.24:INK 2.6:INK 3.1:PAPER 0:PEN 
1:CLS:RESTORE 9000:F0R 2=1 TO 25:READ ES:LOCATE 1.2 

:print es:sound i,ioo,3:next:gosub 9500 

40 IF INKEYS="" THEN 40 

50 MODE 1 : BORDER 1:WIND0W #0, 1.40. 12.25: PAPER #0.3:PEN #0.1:WIND0W #1.1.40.2.11: 
PAPER #1.0:PEN #1.2:WIND0W #2.1.40.1.1:PAPER #2.3:PE 
N #2.2:CLS #o:cls #i:cls #2 

60 NS=5:NT=10:TT=0:NB=TT:TB=TT:GOSUB 3000:GOSUB 3010:GOSUB 3020:YB=10 
70 x=20:Y=11:GOSUB 5010:XMN=2:YMN=XMN:DXMN=1:DYMN=DXMN:GOSUB 5020 
80 LS=INKEYS:IF LSO'" 1 THEN LS=UPPERS<LS) 

90 IF LS="F" THEN 10000 

100 IF LS="Q" AND X>1 THEN GOSUB 5000:X=X-1 
110 IF LS="W" AND X< 40 THEN GOSUB 5000:X = X+1 
115 GOSUB 5010:GOSUB 5200 

120 IF LS=CHRS(32) AND TP=0 THEN TP=1:XTP=X:YTP=Y-1:NT=NT-1:GOSUB 8010:TT=TT+1 
125 IF TP=0 AND NT=0 THEN 7100 

130 GOSUB 5020:IF XMN=X AND <YMN=Y OR YMN=Y+1) THEN 6000 
140 IF TP=1 THEN GOSUB 5100 
200 GOTO 30 
999 GOTO 999 

5000 L0CATE#0,X,Y:PRINT ES:LOCATE#0,X,Y+1:PRINT ES:RETURN 
5010 L0CATE#0,X,Y:PRINT SB1S:LOCATE#0.X.Y+1:PRINT SB2S:RETURN 

5020 PEN#0.2:LOCATE #0.XMN.YMN:PRINT ES:IF XMN>1 AND XMN<40 THEN XMN=XMN+DXMN EL 
SE DXMN=-DXMN:XMN=XMN+DXMN 

5030 IF YMN >1 AND YMNC13 THEN YMN=YMN + DYMN ELSE DYMN=-DYMN:YMN = YMN + DYMN 
5040 LOC ATE#0 . XMN .. YMN:PRINT#0,MNS: PEN#0. 1 : RETURN 
5050 L0CATE#1.XB.YB:PRINT BS(BB):RETURN 

5100 L0CATE#0.XTP.YTP:PRINT#0.ES:SOUND 1.10,2:IF YTP>1 THEN YTP=YTP-1:L0CATE#0.X 
TP.YTP;PRINT#0.TPS:RETURN 

5110 TP = 0:IF XTP > = XB AND XTP<XB + LB THEN 5120 ELSE RETURN 

5120 V0L=15:F0R 2=2000 TO 1950 STEP -1:LOCATE#1,XTP,YB:PRINT#1,EX1S:LOCATE#1.XTP 
,YB:PRINT#1.EX2S:SOUND 1,2.3,VOL:SOUND 2,2+1000,3.VO 
l:vol=vol-o.13:next:NB=NB+1:GOSUB 8020:NT=NT+4-LB:GOSUB 80 10 
5130 LOCATE#!.XB.YB:PRINT#1,STRINGS(3,32):XB=0:RETURN 
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5200 IF XB< 2 THEN LOCATE#1,1,YB:PRINT#1,STRING$(3,32>:BB=INT<RND*6+1):LB=LEN<B$< 
BB) )-1 :XB=40-LB:TB=TB+1 

5210 XB = XB- 1 : LOCATE# 1 , XB.. YB:PRINT#1, B$(BB> : RETURN 

6000 PEN#0.2:V0L=15:FOR Z=3000 TO 2950 STEP -1:LOCATE#0,XMN,YMN:PRINT#0,EX1$:LOC 
ATE#0, XMN, YMN: PRINT#0, EX23¡: SOUND 1,Z,3,VOL:SOUND 2.2 

+1000.3.VOL:V0L=V0L-0.13:NEXT:PEN#0.1:NS=NS-1:GOSUB 8000:IF NS=0 THEN 7000 ELSE 
80 

7000 L0CATE#0.1.1:PRINT#0."TU FLOTA DE SUBMARINOS HA SIDO DESTRUIDAGOTO 7500 

7100 LOCATE#0.1.1:PRINT#0."TE QUEDASTE SIN TORPEDOS. HAS PERDIDO!!!":GOTO 7500 

7500 FOR T= 1 TO 3000 : NEXT : MODE HCLS'.LOCATE 5,ó:PRINT”PUNTUACION:":LOCATE 2,8:PR 
IN T"N. TOTAL DE TORPEDOS DISPARADOS:";TT:LOCATE 2.10 

: PRINT"N . TOTAL DE BARCOS ENEMIGOSTB:LOCATE 2,12:PRINT"N. BARCOS ENEMIGOS HUN 

didos:";nb 

7510 LOCATE 1 , 14:PRINT"HAS HUNDIDO EL"!INT(NB*100/TB>i"% DE LA FLOTA ENEMIGA":LO 
CATE 7.22:PRINT"PARA OTRA PARTIDA PULSA P”:LOCATE 7. 

24:PRINT”PARA OTRO PROGRAMA PULSA O" 

7520 L^=INKEY$:IF L$="" THEN 7520 ELSE L$=UPPER3i ( L$) 

7530 IF L$="P" THEN RUN ELSE IF L$="O" THEN 10000 ELSE 7520 

8000 LOCATE #2,2,1:PRINT#2,"N. "!NS$í ": ” : LOCATE #2,3,1:PRINT#2,USING"##"iNS:RETU 

RN 

3010 LOCATE #2,13,1:PRINT#2,"N. "í TP$5 " : " : LOCATE #2. 18.1: PRINT#2. USING"###" ! NT: R 

ETURN 

8020 LOCATE #2.25. 1:PRINT#2.B$(4) i "HUNDIDOS: ":LOCATE #2,36,1:PRINT#2,USING"###"i 
NB:RETURN 

9000 DATA “ <<< SUBMARINO >>>".." Eres, el Capitari de un submarino 

en"."querrá, y por lo tanto tu misión es".hundir el 

máximo numero posible de.barcos enemigos..." Te bastara un solo torpedo para h 
undir" 

9010 DATA a cualquiera de tus enemigos y por cada.uno que hundas recibirás mas t 
orpedos..." El enemigo estara defendido por medio". 

de una terrible mina submarina..." El movimiento del submarino se realiza" 

9020 DATA con las teclas Q (a la izquierda) y,"W a la derecha), el torpedo se di 
spara" .pulsando la barra espaciador-a. , , " El i uego t 

ermina al ser hundido cinco","veces, al acabarse los torpedos o al",pulsar la te 
cía F. 

9030 DATA ,," PULSA UNA TECLA PARA COMENZAR EL JUEGO" 

9500 SYMBOL 170,16,56,124,124,254,254,238,198:SYMBOL 171,198,193,233,254,124,124 
,56,40:SYMBOL 172,0,O,2,73,83,255,127,62:SYMBOL 173, 

0,0,0,0,3,28,254, 127: SYMBOL 174,0,7, 116,55,255, 127,63,31:SYMBOL 175,64,192,39,24 
6,255,255,254,252 

9510 SYMBOL 176,O,O,73,73,255,127,63,31:SYMBOL 177,32,60,34,62,255,255,254,252:8 

YMBOL 178,O,O,238,102,255,127,63,31:SYMBOL 179,0,127 

,170,213,255,255,255,255:SYMBOL 180,43,248,172,34,255,255,254,252 

9520 SYMBOL 181,4,60,20,255,63,31,15,7:SYMBOL 132,16,241,33,255,255,255,255,255: 
SYMBOL 133,240,168,84,255,252,252,248,240 

9530 SYMBOL 136,16,56,56,56,56,1ó,56,40:SYMBOL 137,36,60,235,36,106,215,60,36:SY 
MBOL 183, 133,30, 132,41,134,53,74, 149:SYMBOL 139,34,2 

O, 165,66,165, 153,74,36 : E$=CHR!£ (32) : SB1$=CHR$ (170) : SB23¡=CHR3; ( 171 ) : TP$=CHR$ (136) : M 
N$=CHR35( 137) 

9540 EX13¡=CHR$ (138) : EX2$=CHR$ (189) : B$ ( 1 ) =CHR$ (172) +E$: B$ ( 2 ) =CHRS¡ ( 173 ) +E$: B$ ( 3 ) =C 
HR$(174)+CHR$(175)+E$:B$(4)=CHR$(176)+CHRS(177)+ES:S 

YMBOL 190,1,0,3,63,127,255,127,63:SYMBOL 191,192,192,224,243,253,254,254,253 
9550 B$(5)=CHR*(178)+CHR$(179)+CHR$(130)+E$:B$(6)=CHR$(131)+CHRÍ(182)+CHR$(183)+ 
E$:NS$=CHR«(190)+CHR*(191):RETURN 

ÍOOOO MODE 1:CLS:PRINT"PREPARADO PARA EL SIGUIENTE PROGRAMA :": RUN"" 
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ABECEDARIO 


ARIO 

0.3:INK 1.26.13:PAPER o:pen 1:SPEED INK 5.5:cls:LOCATE 1. 
R I O":LN=4:GOSUB 10000:SPEED 
INK 2.2:LN=2:GOSUB ÍOOOO 

40 MODE 1:BORDER 11:INK O.IUINK 1,26:INK 2.3.ó:INK 3.24:SPEED INK 5.5:PAPER 0:P 
EN 3:CLS 

50 RESTORE 9000:F0R Z=1 TO 25:READ ES:FOR X=1 TO LEN<E$):EE$=MID$<E$.X.1):E=ASC< 
EE«):SOUND 1 .E.2:LOCATE X.Z:PRINT EE$ 

60 FOR T=1 TO 30:NEXT 
70 NEXT X.Z:GOSUB 9100 
80 IF INKEY$="" THEN 30 

90 H$="ABC"+CHR$(243)+"DEFGHIJKL"+CHR*(249)+"MN"+CHR*(250)+"OPQRSTUVXYZ":K$=H$:L 
H=LEN(H$>:DIN H$(LH),1$(LH).XI(LH),YI(LH):S$="N" 

100 CLS : PEN 0:PAPER 3:L0CATE 2.1IPRINT STRING* (38.32) : LOCATE 2.1:PRINT"DEBEN QUE 
DAR COLOCADAS DE ESTA FORMALOCATE ó.25:PRINT"PULSA 
UNA TECLA PARA COMENZARPAPER O 

110 PEN 2:F0R Y=4 TO 22:L0CATE 2. Y :PRINT AB$:LOCATE 39,Y:PRINT AS$:NEXT 

120 PEN 3:FOR Y=4 TO 22 STEP 3:LOCATE l.Y:PRINT CHR$<241>:LOCATE 40.Y:PRINT CHR$ 

(240):NEXT 

130 FOR Y = 5 TO 23 STEP 3:L0CATE 3.Y:PRINT STRI NG¡$ (36. 154) : NEXT 

135 FOR Y=5 TO 23 STEP 3:F0R X=5 TO 35 STEP 10:L0CATE X.YZPRINT CHR$(153):NEXT:N 
EXT 

140 PEN 2:H=5:0=3:FOR Z=1 TO LH:LOCATE H.V:PRINT MID*(H$.Z.1):H=H+1O 
150 IF H=45 THEN H=5!V=V+3 
160 NEXT 

170 IF INKEY$= n " THEN 170 

130 PEN l:FOR Y=3 TO 21 STEP 3:FOR X=5 TO 35 STEP 10:LOCATE X.Y:PRINT CHR$(32):N 
EXT:NEXT:SOUND 1.100,10 

190 PAPER 3:PEN OlLOCATE 2.1:PRINT STRINGÍ(33.32):LOCATE 2,1:PRINT"ABECEDARIO":L 
OCATE 4.25:PRINT"PARA TERMINAR O ABANDONAR PULSA Z": 

GOSUB 3000:GOSUB 3100 

200 N=RND(TIME):FOR Z=1 TO LH 

210 K=INT (RND*LH+1 ) : IF H* ( K ) = " " THEN H3¡ (K) =LEFT$ (K$¡. 1 ) : K$=MIDÍ <K3>, 2, LH) ELSE 210 


10 ’ A B E C E D 

20 ’ 

30 MODE O:BORDER 8: INK 
12:PRINT"A B E C E D A 
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220 NEXT 

230 PEN 1:H=5:V=3¡FOR Z=1 TO LH:LOCATE H.VlPRINT H$<Z):XI(Z)=H:YI(Z)=V:H=H+1O 
240 IF H=45 THEN H=5:V=V+3 
250 NEXT 

260 PEN 3:XC=4:YC=22¡C«="D":LOCATE XC.YC:PRINT CD$ 

265 EVERY 50.0 GOSUB 8600 

270 L$=INKEY$:IF L$="Z” OR L$="z” THEN 500 

280 IF L«=CHR*(32) THEN 1000 

290 IF L$=CHR56<240> THEN 2000 

300 IF L*=CHR«(241) THEN 3000 

310 IF L3S=CHR35<242) THEN 4000 

320 IF L$=CHR$(243) THEN 5000 

330 GOTO 270 

500 PAPER 3:PEN OíLOCATE 2.25:PRINT"ABANDONAS (A) O EVALUO LA JUGADA (E)" 

510 L$=INKEY«:IF L$="" THEN 510 ELSE L$=UPPER$(L$):IF L¥="A" THEN 700 ELSE IF L$ 
<>"E" THEN 510 

520 PAPER 3:PEN O:L0CATE 1.25:PRINT STRING$(39.32):PEN 2:L0CATE 9.25:PRINT"EVALU 
ANDO LA JUGADA. . . ” 

530 I$="":FOR Z=1 TO LH:PS=(YI (Z) /3*4-4) + (XI <Z>+5) /10: 1$ ( PS ) =HÜ¡ ( Z ) :NEXT:FOR Z=1 
TO LH:I$=I$+I«(Z):NEXT 

540 IF I$OH$ THEN 600 ELSE PEN 3:L0CATE 1.25:PRINT STR I NG$ (39. 143) : PEN 0:L0CATE 
5.25:PRINT"POR LAS LETRAS BIEN COLOCADAS" :FOR Z=1 T 
O LH:PT=PT+10:SOUND 1.ABS(PT).3:GOSUB 8100:NEXT 

550 PAPER 3!PEN OILOCATE 1.25:PRINT STRING$(39.32):PEN 2:L0CATE 5.25:PRINT”POR E 
L POCO TIEMPO UTILIZADO:"!TM 

560 FOR T=TM TO 2000 STEP 10:SOUND 1.1500-TM.3:PT=PT+1O:GOSUB 8100:NEXT 

570 IF SQ <1)< >4 THEN 570 

580 FOR T=1 TO 2000:NEXT:GOTO 700 

600 PAPER 3:P'EN 0:L0CATE 1.25: PRINT STRING$(39.32):PEN 2:L0CATE 3.25:PRINT"LAS L 
ÉTRAS NO ESTAN BIEN COLOCADAS":SOUND 1.500.50:FOR T= 

1 TO 2000:NEXT 

610 PAPER 3IPEN 0:L0CATE 1.25:PRINT STRING*(39.32):PEN 2:L0CATE 2.25:PRINT"ABAND 
ONAS (A) O CONTINUAS EL JUEGO <C>" 

620 L$=INKEY$:IF L$="” THEN 620 ELSE L*=UPPER$(L$):IF L*="A" THEN 700 ELSE IF L$ 
= ,, C" THEN PEN O : LOCATE 1.25:PRINT STRING* (39. 143) : PE 

N O:LOCATE 4.25:PRINT”PARA TERMINAR O BANDONAR PULSA Z":PAPER O:PEN 3:GOTO 270 E 
LSE 620 

700 PAPER O:PEN 1:CLS 

710 LOCATE 1.5:PRINT"PUNTOS: "í PT:LOCATE 1.7:PRINT"TIEMPO: " i TM:LOCATE 4.10:PRINT" 

PULSA LA OPCION QUE PREFIERAS:":LOCATE 5.12:PRINT"P 

PARA OTRA PARTIDA”:LOCATE 5.14:PRINT"T PARA OTRO PROGRAMA” 

720 L$=INKEY$:IF L$="" THEN 720 ELSE L$=UPPER$(L$):IF L$="P" THEN RUN ELSE 900 
900 BORDER 1:INK 0.1:1NK 1.24:PAPER O:PEN 1:CLS:PRINT"PREPARADO PARA EL SIGUIENT 
E PROGRAMA":RUN"" 

1000 IF S$="S" THEN 1490 

1005 IF C*="D" THEN CX=XC+1 ELSE CX=XC 

1010 FOR Z=1 TO LH:IF CX=XI(Z) AND YC-1=YI(Z) THEN LT=Z:Z=LH*2-1 
1020 NEXT:IF Z<LH*2 THEN GOSUB 8500:GOTO 270 

1030 LT*=H$(LT):IF LT$=CH$ THEN GOSUB 3500:G0T0 270 ELSE CH$=LT$ 

1040 LOCATE XI <LT> .YI <LT) :PRINT ” ":PEN 1:Y I (LT)=YI (LT)+1:LOCATE XI (LT) .Y I (LT> :P 
RINT lt$:pen 3:S^="S":GOTO 270 

1490 IF XI(LT)=2 THEN 1600 ELSE IF XI(LT)=39 THEN 1700 
1500 FOR Z=1 TO LH 
1510 IF Z=LT THEN 1530 

1520 IF XI(Z)=XI(LT) AND YI(Z)=YI(LT)-1 THEN Z=LT*2-1 
1530 NEXT:IF Z=LT*2 THEN GOSUB 8500:GOTO 270 

1540 LOCATE XI (LT) .Y I (LT) :PRI NT CHR$(95):SOUND 1.100.5:PEN 1:YI (LT)=YI (LT)-1:LOC 
ATE XI(LT).YI(LT):PRINT LT$:PEN 3 

1550 l.T*=" ": LT=0: S*="N" : PS=0: GOSUB 8000: GOTO 270 
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1600 PS=PS+1:GOSUB 8000:IF YC=22 THEN GOSUB 8500:G0T0 270 

1610 PEN 2:L0CATE 2.YC:PRINT AB*;E*:YI(LT)=YI(LT>+3:YC=YI(LT):PEN 3:L0CATE XC.YC 
:print ci*:pen 1:locate xi(LT).yi(LT>:print h*(LT>:p 
EN 3:GOTO 270 

1700 PS=PS+1:GOSUB 3000:IF YC = 4 THEN GOSUB 8500:GOTO 270 

1710 PEN 2¡L0CATE 37.YC:PRINT E*iAB*:YI (LT)=YI <LT)-3: YC = YI (LT) : PEN 3:LOCATE XC . Y 
c:print cd*:pen ulocate XI (LT) . YI (LT) : PRINT H*(LT): 

PEN 3:GOTO 270 

2000 IF S*="S" THEN GOSUB 3500: GOTO 270 

2010 IF YCM THEN LOCATE XC.YC:PRINT E* ELSE 270 

2015 IF XC=2 OR XC=3 THEN PEN 2:LOCATE 2.YC:PRINT AB* ELSE IF XC=37 OR XC=38 THE 
N PEN 2:LOCATE 39.YC:PRINT AS* 

2020 YC = YC-3: PEN 3:L0CATE XC.YC: IF C*=”D" THEN PRINT CD* ELSE PRINT CI$i 
2030 GOTO 270 

3000 IF S*="S" THEN GOSUB 3500: GOTO 270 

3010 IF YC < 22 THEN LOCATE XC.YC:PRINT E* ELSE 270 

3015 IF XC=2 OR XC=3 THEN PEN 2:L0CATE 2.YC:PRINT AB* ELSE IF XC=37 OR XC=3S THE 
N PEN 2:LOCATE 39.YC:PRINT AS* 

3020 YC=YC+3:PEN 3:L0CATE XC.YC:IF C*="D" THEN PRINT CD* ELSE PRINT CI* 

3030 GOTO 270 

4000 IF XC< 3 THEN 270 

4005 IF S*="S" AND C*="D" THEN XI ( LT) =X I (LT ) - 1 

4010 LOCATE XC.YC:PRINT E*:XC=XC-1:LOCATE XC.YC:PRINT CI*:C*="I":IF S*= " S " THEN 

ps=ps+i:gosub 3000:pen i:locate xc.yc:print lt*:xí( 1 
t>=xi(1t)-1:PEN 3 

4020 IF XC=37 THEN PEN 2:LOCATE 39.YC:PRINT AS*:PEN 3 

4030 GOTO 270 

5000 IF XC >37 THEN 270 

5005 IF S*=”S" AND C*="I" THEN XI(LT)=XI(LT)+1 

5010 LOCATE XC.YC:PRINT E*:XC=XC+1:PEN 3:L0CATE XC.YC:PRINT CD$:C$="D":IF S*="S" 
THEN PS=PS+1:GOSUB 3000:PEN 1:XI(LT)=XI(LT)+1:LOCAT 
E XI(LT).YI(LT):PRINT LT*:PEN 3 

5020 IF XC=3 THEN PEN 2:L0CATE 2,YC:PRINT AB*:PEN 3 
5030 GOTO 270 

8000 PAPER 3:PEN O:LOCATE 15.1:PRINT USING"PASOSPS:PAPER O:PEN 3 
3010 IF PS>10 THEN GOSUB 3500 
3020 RETURN 

8100 PAPER 3:PEN 0:L0CATE 27.1:PRINT USING"PUNTOS:####PT:PAPER 0:PEN 3:RETURN 
8500 SOUND 1.1000.10:PT=PT-1:GOSUB 3100:RETURN 
8600 TM=TM+1:RETURN 

9000 DATA " ABECEDARIO”.""." Es un iuego de ingenio y hábil i 

dad. en".el que hay que colocar las letras por.orden 
a1Fabetico.." "." Para hacerlo tienes que ayudarte con".una carretilla elevado 

raauetetrans- 

9010 DATA portara las letras hacia derecha e. 11 izquierda, no mas de 10 pasos segu 
idos;"."y de dos ascensores, uno de baiada a la", "iz 

quierda y otro de subida a la derecha.“.por donde descenderán o ascenderán de.ni 
vel las letras y la carretilla. 

9020 DATA “ La carretilla se mueve con las teclas".del cursor y las letras 

se recogen o.sueltan de la carretilla pulsando la.ba 

rra espaciador-a.." "." El programa dispone de un cronometro" 

9030 DATA que medirá el tiempo transcurrido.." "." "." PULSA UNA TECLA PARA COME 

NZAR EL JUEGO" 

9100 SYMBOL AFTER 243:SYMB0L 244.195.36.24.0.195.36.24.O:SYMBOL 245.24.3Ó.195.O. 
24.36.195.O:SYMBOL 246,97.81.117.37.125.253.255 ; 69:S 

YMBOL 247.134.133.174.164.190.191.255.146:SYMBOL 243.104.136.136.142.138.133.106 
. 0 : SYMBOL 249.233.63.63 ; 63 .. 63 .. 35 ; 255 . O 
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9110 SYMBOL 250.240.30.0.230.246.222.206.O:CD$=CHR$ <246> +CHR* (95) '. C I$=CHR$ ( 95 ) +C 

HR$(247):AB$=CHR$(244):AS$=CHR$(245):ES=" ":RETURN 

10000' FOR T = 100 TO 900 STEP 10 

10010 SOUND l.T.LN 

10020 IF SQ<1 ) 04 THEN 10020 

10030 NEXT:RETURN 

11000 FOR Y=3 TO 21 STEP 3:F0R X = 5 TO 35 STEP 10:PRINT(Y/3*4-4) + (X + 5) i 10í :NEXT:N 
EXT 
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GRAFICAS LINEALES 


10 ’ GRAFICAS LINEALES 

20 ' COPYRIGHT M.J.C. 8c F . A . P . 

30 MODE ÍIBORDER 1:INK O.lIINK 1.26:INK 2.24IINK 3.6:PAPER 0:PEN 1:CLS 
40 RESTORE 9000:FOR Z=1 TO 22:READ E$:LOCATE Í.ZIPRINT E*:NEXT:SOUND 1.100.10 
50 IF INKEY$="" THEN 50 

5 J CLo:iNPUT"SI VAS A INTRODUCIR LOS DATOS POR MEDIO DEL TECLADO INTRODUCE T. SI 
LOS TIENES ALMACENADOS EN CASSETTE INTRODUCE C" ; M3s 

57 M$=UPPER$ (M$) : IF M*="C" THEN GOSUB 1000: CLS: GOTO 460 ELSE IF M$<>"T” THEN CLS 
:GOTO 55 

60 CLS:LOCATE 2.10ILINE INPUT "NOMBRE DE LA VARIABLE A REPRESENTAR EN EL EJE X " 
íVl$:CLS:LOCATE 2.10:LIME INPUT "NOMBRE DE LA VARIAB 
LE A REPRESENTAR EN EL EJE Y "SV2$ 

70 IF LEN(V1$)=0 OR LEN(V2$)=0 THEN SOUND 1.500.1O:GOTO 60 

80 LOCATE 1.12:PRINT"LA INTRODUCCION DE LOS DATOS NO TIENE QUE ESTAR ORDENADA 
PARA NINGUNA DE LAS VARIABLES":LOCATE 1.15:PRINT”QU 

IERES QUE LOS ORDENE YO DE MENOR A MAYOR PARA LA VARIABLE "5V1$:PRINT" (S/N)" 

: INPUT R5¡ 

90 CLS:R*=UPPER*(R$):IF R$<>"S" AND R$<>"N" THEN SOUND 1.500.1O:GOTO 80 

100 LOCATE 1.5: INPUT "CUAL ES EL NUMERO TOTAL DE DATOS" ¡N:IF N< 1 OR NOINT(N) THE 

N SOUND 1.500.10:CLS:GOTO 100 ELSE IF N>4000 THEN LO 

CATE 1,20: PRINT"SON DEMASIADOS DATOS.. NO PUEDO UTILIZAR TANTOS" : FOR T=1 TO 2000: 
NEXT:CLS:GOTO 100 
110 CLS:DIM A(N-l . 1 ) 

120 LOCATE 1.2: PRINT"INTRODUCCION DE DATOS PARA LA VARIABLE ";V1$ 

130 FOR Z=0 TO N-l:LOCATE 5.12:PRINT STRING$(36.32>:LOCATE 5.12:PRINT"VALOR N.”! 

z+i;": ";:input a<z.0):next 

140 LOCATE 3.20: PRINT"FIN DE LA INTRODUCCION DE LOS DATOS DE LA VARIABLE " ;Vl!*>: 
FOR T=1 TO 2000:NEXT:CLS 

150 LOCATE 1.2: PRINT"INTRODUCCION DE DATOS PARA LA VARIABLE ” ; V2$ 

160 FOR Z=0 TO N-l:LOCATE 5.12IPRINT STRING$(36.32):LOCATE 5.12:PRINT"VALOR N. M ! 
Z+l;": input A(Z.1):NEXT 

170 LOCATE 3.20:PRINT"FIN DE LA INTRODUCCION DE LOS DATOS DE LA VARIABLE "¡V2$: 
FOR T=1 TO 2000:NEXT:CLS 
180 IF R*="N" THEN 330 

190 LOCATE 2.12:PRINT"UN MOMENTO. ESTOY ORDENANDO LOS DATOS" 

200 FOR Z=0 TO N-2 
210 P = 0 


32 - AMIGOS DEL AMSTRAD - 1987 




















220 FOR X = 0 TO N-2 

230 IF A(X.O)<=A(X+l.O) THEN 280 
240 H=A(X.O):A(X.0)=A(X+1.0):A(X+1.0)=H 
250 H=A(X.1):A(X.1)=A(X+l.1):A(X+l.1> =H 
270 P=1 
280 NEXT 

290 IF P=0 THEN 2=N 
300 NEXT 

310 cls:pen 2:locate 2.12:PRINT"LISTA de datos ordenada respecto a la variable 
" ¡ VI* 

320 FOR T=1 TO 2000:NEXT:CLS 

330 INPUT"QUIERES ALMACENAR LOS DATOS EN CASSETTE RESPONDE S PARA SI. N PARA NO" 
;R$:R3>=UPPER*<RS) : IF R*<>"S” AND R*<>"N" THEN SOUND 
1.500.10:CLS:GOTO 330 
340 CLS:IF R*="N" THEN 460 

350 LOCATE 5.4:PRINT"ALMACENAMIENTO DE LOS DATOS EN CASSETTE":PRINT:PRINT:INPUT" 
NOMBRE QUE QUIERES DARLE AL ARCHIVO (MAXIMO 10 C 

ARACTERES)";N* 

360 K=LEN(N*):IF K<1 OR K>10 THEN SOUND 1.500.10:GOTO 340 
370 SPEED WRITE 1 :OPENOUT N* 

380 PRINT#9.N 

390 PRINT#9.VI*:PRINT#9 ; V2* 

400 FOR Z=0 TO N-l 

410 PRINT#9.A(Z.O) :PRINT#9.A(Z,1> 

420 NEXT 

450 CLOSEOUT:SPEED WRITE O 

460 CLS:N1=A(O.O)¡M1=N1:N2=A(O.1):M2=N2 

470 FOR Z=1 TO N-l 

480 IF AfZ.OXNl THEN Nl-A(Z.O) ELSE IF A(Z.0)>M1 THEN Ml=A(Z.O) 

490 IF A(Z. 1)<N2 THEN N2 = A(Z.l) ELSE IF A(Z.1)>M2 THEN M2=A(Z.1> 

500 NEXT 

510 LOCATE 1.5:PRINT"VARIABLE "í VI*:LOCATE 1.7:PRINT”MAXIMOM1:LOCATE 1.9:PRIN 
T"MINIMO: "5 NI:LOCATE 1. 12:PRINT"VARIABLE "!V2*:L0CAT 
E 1.14:PRINT"MAXIMO:";M2:LOCATE 1.16:PRINT"MINIMO:"!N2 

520 LOCATE 1.20:PRINT"LA GRAFICA PERMANECERA EN PANTALLA HASTAQUE PULSES < ENTER > 
"(LOCATE 1.25:PRINT" AHORA PARA VER LA GRAFICA PULSA 
TECLA" 

530 IF INKEr*= !iii THEN 530 
540 CLS:CLG:ORIGIN 0.0 

550 PEN 3:L1=LEN(Vl*>:LOCATE 20-INT(L1/2).25:PRINT V1*:L2=12-INT(LEN(V2*)/2):FOR 
Z=1 TO LEN(V2*):LOCATE 1.L2+Z:PRINT MID*(V2*.Z,1):N 
EXT 

560 MOVE 30.390:PL0TR 0.0.2:DRAWR 0.-338:DRAWR 550.0 

570 LOCATE 1.22:PRINT USING"###«"¡N2:LOCATE 5.22:PRINT"-”:LOCATE 1.2IPRINT USING 
5 M2:LOCATE 5.2:PRINT"-" 

580 LOCATE ó.23:PRINT" ! ":LOCATE 39.23:PRINT" ! ":LOCATE 4.24:PRINT USING"####"í NI: 

LOCATE 37.24:PRINT USING"####";M1 

590 ORIGIN 88.56 

600 RX = M1-N1:RY = M2 ~N2 

610 X0=INT((A(O.O)-NI)/RX*52ó+0.5):YO=INT((A(O.1)-N2)/RY*320+0.5):PLOT XO.YO.1 
620 FOR Z=1 TO N-l 

630 X=INT( (A(Z.O)-NI) /RX*526 + 0.5) :Y =IN T( (A(Z. 1)-N2) /RY*320 + 0.5) :DRAW X.Y 
640 NEXT 

650 L*=INKEY*: IF L$OCHR$(13) THEN 650 

660 cls:pen 1 

670 LOCATE 4.8:PRINT"EL IGE UNA DE ESTAS OPCIONES: ":LOCATE 2.10:PRINT"1. - VER OTR 
A VEZ LA GRAFICA":LOCATE 2.12:PRINT"2.- INTRODUCIR O 
TROS DATOS":LOCATE 2.14:PRINT"3.- ABANDONAR EL PROGRAMA" 
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éSO L$-INKEY$:IF L$= " " THEN 680 ELSE IF L$="l" THEM 540 ELSE IF L$="2" THEN RUN 
55 ELSE IF L$< >”3” THEN 630 

690 INK 1.24:CLS:PRINT”PREPARADO PARA EL SIGUIENTE PROGRAMARUN”" 

1000 REM SACAR DATOS DEL CASSETTE 
1050 OPENIN 

1060 INPUTtt-9. N: A ( 1 . 1 ) =1 : ERASE A:DIM A(N-l.l) 

1070 INPUT#9 ; Vl$:INPUTH9.V2* 

1080 FOR Z = 0 TO N-l 

1090 INPUT#9.A(Z.O) : INPUT#9. A < Z . 1) 

1100 NEXT 
1110 CLOSEIN 

1120 CLS:LOCATE 2 . 12PR INT ” INTRODUCC ION DE LOS DATOS TERMINADA FOR T=1 TO 2000: 
NEXT:CLS:RETURN 

9000 DATA " GRAFICAS LINEALES"..." Las gráficas lineales se u 
tilizan para".la representación de un coniunto de.da 

tos que re 1 ac i onan dos var i ab 1 es ..." Un e i ernp lo de estas graf i cas sori 1 as " . repr 
esentaciones de un importe o de 

9010 DATA "cualquier valor respecto al tiempo".como puede ser el indice bursátil 
o el.peso de una persona..." En la gráfica.los dat 
os pueden estar".ordenados de menor a mayor para la.variable en el eie X (es lo 
mas normal), o no estarlo.. 

9020 DATA " El programa te permitirá almacenar los".datos en cassette para futu 
ras gráficas...” PULSA UNA TECLA PARA COMENZAR" 
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Para 

saber cómo 
hablar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de altg nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador. 


Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica |con experimentos! 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


GRATUITAMENTE 


deseo recibir a la mayor 
brevedad posible información 
sobre el Curso de: _ 


CEAC 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
F r ’UCACION Y CIENCIA N.° 8039185 

[BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto. 08013 Barcelona 

Tel.: (93) 245 33 06 


Edad 


Nombre y apellidos 


Domicilio 


Población 

Provincia 


C. Postal 


Profesión 


CEAC. Aragón, 472 

(Dpto. ) 08013 Barcelona 


°ttaS&¿633° 6 
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